KADC-TK-79- 1 <5,  Vol  II  (of  two) 
RimI  Technical  hpirt 
July  1979 


BASEUNE  SOFTWARE  DATA  SYSTEM 
Database  Reference  Manual 


D C 


Lorraine  N.  Duvall 
Christine  Curtis 


I Arreovio  roe  rune  »ausi;  otsTKiaunoN  unumiteo 


/ 


ROME  AIR  DEVELOPMENT  CENTER 

Air  Forco  Systoms  Command 

Griffist  Air  Forco  Base,  Now  York  13441 


?9  08  31  007 


This  report  boon  reviewed  by  the  RADC  Information  Office  (01) 
and  lo  rolooooblo  to  the  Notional  Technical  Information  Service  (NTIS) 
At  NTIS  It  will  bo  roloaoable  to  the  general  public,  including  foreign 
nationo. 

RADC- TR- 79- 185,  Vol  II  (of  two)  has  been  reviewed  and  la  approved 
for  publication. 


JOHN  PALAIMO 
Project  Engineer 


APPROVED 


WENDALL  C.  BAUMAN,  Col,  USAF 
Chief,  Information  Sciences  Division 


FOR  THE  COMMANDER 


JOHN  P.  HUSS 

Acting  Chief,  Plans  Office 


If  your  address  has  changed  or  if  you  wish  to  be  removed  from  the  RADC 
mailing  list,  or  if  the  addressee  is  no  longer  employed  by  your  organisa- 
tion, please  notify  RADC  (ISIS)  Griff iss  AFB  NY  13441.  This  will  assist 
us  in  maintaining  a current  mailing  list. 

Do  not  return  this  copy.  Retain  or  destroy. 


UNCLASSIFIED 


REPORT 


T»V| 


TATION  PAGE 


two) 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


ECIPIENT'S  CATALOG  NUMBER 


flASELINE  ^SOFTWARE  DATA  SYSTEM  . VcA  J A C 
Database  Reference  Manual  


If.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

IIT  Research  Institute  / 

10  West  35th  Street 

Chicago  IL  60616 

It.  CONTROLLING  OFFICE  NAME  AnO  ADDRESS 

Rome  Air  Development  Center  (ISIS) 
Griffiss  AFB  NY  13441 

an 

14.  MONITORING  AGENCY  NAME  4 ADORESSfJf  dllloront  from  Controlling  Ollico) 

s“*  (7£ 

F*?  i 

t«.  DISTRIBUTION  STATEMENT  (of  (III*  Ropott) 

Approved  for  public  release;  distribution  unlimited. 


17.  DISTRIBUTION  STATEMENT  (of  the  obotroct  entered  In  Block  20,  II  dlllorotU  from  Ropott) 

Same 


It.  SUPPLEMENT  AAV  NOTES 

RADC  Project  Engineer:  John  Palaimo  (ISIS) 


19.  KEY  WORDS  (Continuo  on  rovoroo  cl  do  II  noeoooory  ond  Idontlty  by  block  number) 

database  management 
data  definition 
data  retrieval 
software  failure  data 


20.  ABSTRACT  (Continuo  on  rovoroo  oido  It  noeoooory  ond  Identity  by  block  number) 

Volume  I of  this  report  provides  a feature  evaluation  of  the  Management 
Data  Query  System  (MDQS),  a discussion  of  the  contents  of  the  Baseline  data- 
bases, and  a summary  of  the  data  required  for  software  reliability  modelling. 

Volume  II  is  a reference  guide  for  defining  and  retrieving  data  from  the 
Baseline  databases. 


UNCLASSIFIED 

SECURITY  CLASSIFICATION  OF  THIS  PAGE  CWimi  0*1*  Bntorod) 


J_7  S'  3 SO 


PREFACE 
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Technical  Monitor  for  this  program.  This  report  covers  work 
conducted  during  the  period  from  February  1977  through  August  1978 
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Section  I 


INTRODUCTION 


1.1  Purpose 


' The  purpose  of  this  manual  is  to  provide  the  user  of  the 
Baseline  Software  Data  System  with  a general  capability  for 
retrieving  information  from  the  databases.  ^ 

1 . 2 Background 

The  databases  are  implemented  on  the  Rome  Air  Development 
Center  (RADC)  Honeywell  6180  Computer  System  using  the  General 
Comprehensive  Operating  Supervisor  (GCOS)  and  the  Management 
Data  Query  System  (MDQS) . The  reader  of  this  guide  should  have 
a basic  understanding  of  the  use  of  GCOS  for  both  the  batch  and 
timesharing  environments.  However,  it  is  expected  that  the  user 
of  this  guide  has  no  knowledge  of  MDQS. 

MDQS  is  a comprehensive  database  management  system  which 
provides  tools  for  defining,  loading,  updating,  and  querying 
databases.  This  Reference  Manual  does  not  discuss  all  tne  capa- 
bilities of  MDQS  but  contains  a discussion  of  the  basic  features 
as  applied  to  the  Baseline  Databases , and  will  help  the  novice 
user  to  query  the  data  and  write  simple  reports.  For  more  advanced 
usage,  the  user  is  referred  to  the  two  Honeywell  MDQS  Manuals 
(references  4 and  5) . 

Section  II  introduces  the  user  to  the  attributes  of  the 
Historical  Database  so  that  queries  can  be  easily  formulated. 
Sections  III  and  IV  provide  a progressive  technique  for  writing 
queries  and  reports  as  well  as  an  explanation  of  the  user's  method 
of  interfacing  to  application  programs.  Appendix  A presents  a 
step-by-step  procedure  for  defining  the  Historical  Database  and 
•definition  listings  for  that  database.  The  design  and  MDQS  defi- 
nitions for  the  Summary  Database  are  contained  in  Appendix  B, 
including  the  data  summary  forms  used  to  summarize  the  information 
from  the  Historical  Database.  The  MDQS  definitions  for  the  RADC 
Productivity  Database  are  presented  in  Appendix  C.  Appendix  D 
contains  a method  for  loading  the  data  from  magnetic  tape  into 
a permfile. 
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Section  II 


HISTORICAL  DATABASE  CHARACTERISTICS 


The  Historical  Database  for  the  Baseline  S/W  Data  System 
consists  of  six  distinct  sequential  datasets  containing  a 
total  of  31,912  eighty-four  character  records.  The  datasets 
represent  software  problem  reports  (SPR) , module  information, 
and  run  analysis  reports  on  the  software  development  of  six 
projects.  Each  project  (designated  as  Project  1 through  6)  is 
discussed  in  references  3 through  8,  respectively. 

To  use  the  MDQS  procedure  language  for  retrievals,  unique 
names  are  needed  to  designate  a database  reference,  an  applica- 
tion definition,  an  entry,  and  the  relevant  data  items.  The 
entry  names  and  the  data-item  names  are  the  same  for  all  datasets. 
The  data-item  names  are  listed  and  defined  in  Table  1;  a desig- 
nation of  which  datasets  contain  the  specific  data  item  is  con- 
tained in  Table  2.  A "1"  denotes  that  the  data  is  in  the  dataset, 
a "3"  indicates  that  information  is  included  in  the  final  report. 


The  following  are  valid  entry  names: 


PROBLEM-REPORT  - This  entry  normally  includes  such 

information  as  the  date  the  problem 
was  discovered  and  fixed,  the  module 
affected,  and  the  error  category. 


MODULE  - This  entry  contains  descriptive  in- 

formation for  each  software  module 
in  the  system  including  module  name, 
type  and  size. 


HARDWARE  - 
SOFTWARE  - 
TEST- CHAR  - 


These  entries  contain  information  on 
the  hardware  and  software  environment 
and  the  testing  characteristics.  Only 
Project  2 has  these  entries. 


V 

Table  3 contains,  for  each  project,  the  project  designation, 
database-reference  name(s),  application  name,  entry  name(s),  and 
number  of  record  occurrences. 


TABLE  1:  GLOSSARY  OF  DATA- ITEM  NAMES 


* 


L*i 


010  FROJ-ID 
020  PROJ-VZRSION 
030  PHOJ-TYPE 
0*0  STS-ID 
050  SYS- VERSION 
060  SYS-TYPE 
070  SSYS-ID 
080  S S YS-VERS I ON 
090  SSTS-TYPE 
100  MOD-ID 
110  MOD-VERSION 
120  MOD-TYPE 
130  COMP-ID 
140  COMP-OM 
150  COMP-RATE 
160  COMP-OS 
170  TECH-ID 
180  COMPL-ID 
190  COMPLEXITY 
200  CONST-TYPE 
210  NOM-OCCOR 
220  PHASE 
230  HOM-RDNS-TOT 
235  TEST-PER 
240  NUM-RUNS-OK 
250  AHRS-PER-TEST 
260  TEST-ID 
270  TEST-TYPE 
280  DATE-RON 
29C  STRESS-TYPE 
300  STRESS-MEAS 
310  TEST-RESOLT 
315  NOM-ERR 
320  SPR-NUM 
330  DATE-OPEN 
340  MOD-SOORCE 
350  ERR-CAT-TYPE 
360  ERROR-CAT 
370  SEV-TYPE 
380  SEVERITY 
390  TYPE-TERM 
400  HRS -TO-D ISC 
405  WORK— CAT 
410  SMN-NUM 
420  MOD-CHANCED 
430  MOD-CH-VERS 
440  COR-TYPE 
450  COR-MECB 
455  ACT-CAT 
460  DATE-BEGUN 
470  DATE-CLOSE 
480  DAYS-OPEN 
*90  HHRS-TO-FIX 
500  NUM-CHANGED 
510  CODE-CONT 
520  PROB-DESC 
530  CORR-D ESC 
540  ERROR-DESC 


PROJECT  IDENTIFICATION 
PROJECT  VERSION 
PROJECT  TYPE 
SYSTEM  IDENTIFICATION 
SYSTEM  VERSION 
SYSTEM  TYPE 

SUBSYSTEM  OR  FUNCTIONAL  AREA  IDENTIFICATION 

SUBSYSTEM  VERSION 

SUBSYSTEM  TYPi 

MODULE  IDENTIFICATION 

MODULE  VERSION 

MODULE  TYPE 

COMPUTER  IDENTIFICATION 
COMPUTER  OPERATING  MODE 
COMPUTER  PROCESSING  RATE 
COMPUTER  OPERATING  SYSTEM  TYPE 

IDENTIFICATION  OF  THE  CONSTRUCTION  TECHNOLOGY 
TYPE  OF  COMPLEXITY  MEASURE  USED 
THE  COMPLEXITY  MEASURE  VALUE 

CONSTITUENT  TYPE (EX . JOVIAL .ASSEMBLY  LANGUAGE) 

NUMBER  OF  OCCURRENCES  OF  CONSTITUENT  TYPE 
PHASE  IN  WHICH  ACTION  OCCURRED 
TOTAL  NUMBER  OF  RUNS 

THE  PERIOD  IN  WHICH  THE  TEST  WAS  PERFORMED 

TOTAL  NUMBER  OF  CORRECT  RUNS 

AVERAGE  NUMBER  OF  HOURS  PER  TEST 

TEST  IDENTIFICATION 

TYPE  OF  TEST 

DATE  THE  TEST  WAS  RUN 

TYPE  OF  STRESS  APPLIED 

AMOUNT  OF  STRESS  APPLIED 

RESULT  OF  TEST 

NUMBER  OF  ERRORS  DISCOVERED  PER  TEST 
SOFTWARE  PROBLEM  REPORT  NUMBER 
DATE  THE  PROBLEM  WAS  REPORTED 

THE  MODULE  ID  WHERE  THE  PROBLEM  WAS  MANIFESTED 

ERROR  CATEGORY  TYPE 

ERROR  CATEGORY  CODE 

SEVERITY  TYPE 

SEVERITY 

TYPE  OF  TERMINATION 
HOURS  TO  DISCOVERY 

THE  TYPE  OF  DEVELOPMENT  TASK  PERFORMED 

SOFTWARE  MODIFICATION  NOTICE  NUMBER 

THE  ID  OF  THE  CHANGED  MODULE 

THE  VERSION  OF  THE  CHANGED  MODULE 

CORRECTION  TYPE 

CORRECTION  MECHANISM 

THE  TYPE  OF  TEST  PERFORMED 

DATE  WBEN  PROBLEM  SOLUTION  WAS  INITIATED 

DATED  WHEN  PROBLEM  WAS  REPORTED  TO  BE  CLOSED 

NUMBER  OF  DAYS  BETWEEN  DATE  OPEN  AND  DATE  CLOSE 

HUNDRETHS  OF  HOURS  TO  FIX 

NUMBER  OF  SOURCE  STATEMENTS  CHANGED 

A CODE  THAT  INDICATES  AN  SPR  DOCUMENTS  MORE  THAN  1 PROBLEM 
A DESCRIPTION  OF  THE  PROBLEM 
A DESCRIPTION  OF  THE  CORRECTION 
A DESCRIPTION  OF  THE  ERROR 


* 


( 


* 
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TABLE  2:  DATA- ITEM/PROJECTS 


The  user  also  has  the  option,  in  GCOS  Time  Sharing,  to  deter- 
mine the  data  item  names  and  attributes  of  the  particular  dataset 
being  queried  by  the  use  of  the  ADFQ  (Application  Definition  File 
Query)  Command.  This  feature  is  illustrated  below  using  the 
Project  1 dataset. 


SYSTEM  ?MDQ 
OLD  OR  NEW-NEW 
READY 
*ADFQ 


BRIEF  OR  FULL  FULL 

ADF  OBJECT  FILE  — ADOTRWS 
DATA  BASE  REF  — DBRTRWS 
SEQUENTIAL  FILE 
ENTRY  — ALL 
ENTRYS  ARE 

PROBLEM-REPORT 
ENTRY  — PROBLEM-  REPORT 
ITEM  — ALL 
ITEMS  ARE 

MOD-CHANGED 
A/N  SIZE  7 
.SPR-NUM 

A/N  SIZE  4 
MOD-SOURCE 

A/N  SIZE  7 

date-.open 
a/n  size  a 

MO-OPEN 

A/N  SIZE  2 
DA-OF  EN 

A/N  SIZE  2 
YR-OPEN 

A/N  SIZE  2 
SEVERITY 

A/N  SIZE  1 
TEST- PER 

A/N  SIZE  2 
TEST- ID 

A/N  SIZE  S 
ERROR-CAT 

A/N  SIZE  II 
MAJOR-CAT 

A/N  SIZE  2 . 
MINOR-CAT 

A/N  SIZE  3 


SMN-NUM 

A/N  SIZE  6 
COR-TYPE 

A/N  SIZE  6 
NEW-MOD 

A/N  SIZE  I 
DOC-UP 

A/N  SIZE  I 
COM-CH 

A/N  SIZE  I 
DB-CH 

A/N  SIZE  I 
EX PLAN 

A/N  SIZE  2 
DATE-CLOSE 

A/N  SIZE  8 
MO-CLOSE 

A/N  SIZE  2 
DA-CLOSE 

A/N  SIZE  2 
YR-CLOSE 

A/N  SIZE  2 
PROJ-VERS ION 
A/N  SIZE  6 
PROJ-ID 

SCAN  FIELD 
A/N  SIZE  2 
CODE-CONT 

A/N  SIZE  I 
DAYS- OPEN 

A/N  SIZE  3 

ITEM  — 

ENTRY  — 

DATA  BASE  REF  — 
ADF  OBJECT  FILE  — 
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Section  III 
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ELEMENTARY  PROCEDURE  USAGE 


The  elementary  usage  of  the  MDQS  Language  allows  for  the 
retrieval  of  instances  of  the  database,  sorting  this  data,  per- 
forming computations,  and  printing  simple  reports. 

3 . 1 A Simple  Query 

A simple  procedure  must  contain  at  least  the  following  state- 
ments : 


INVOKE...  first  statement 

RETRIEVE. . . 

PRINT.  . . 

END...  last  statement 

A simplified  example  is  the  retrieval  of  the  first  ten  entries 
of  the  Project  1 data  printing  only  the  items  MOD-CHANGED,  SPR-NUM, 
and  DATE-OPEN  on  a permfile. 

SYSTEM  ?MDQ 
OLD  OR  NEW-NEW 
READY 
"AUTOX 

0010  INVOKE  ADOTRWS  -♦•Application  Definition  Object  Name* 

0020  RETRIEVE  PROBLEM-REPORT  FROM  DBRTRWS  fr°m 

Database 

0030  ONLY  10  ENTRIES  •♦•Limits  retrievals  to  ten  records 
0040  PRINT  ON  FILE  REPORT-1  MOD-CHANGED, SPR-NUM, DATE-OPEN 

0050  END  4 f 

Permfile  to  Items  to  be 

contain  result  printed 

The  above  procedure  can  be  checked  for  errors  and  then  run. 


; ^ 


1 


rl 


r j 

II 


M 
i i 


*It  may  be  necessary  to  use  the  catalog  name  (BFCBMIS1)  in  addition 
to  the  Application  Definition  Object  Name.  This  example  would 
contain  INVOKE  BFCBMIS1/ADOTRWS. 
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The  RUNS  command  gives  a continuous  status  of  the  job's  progress 
“CHECK 


PROCEDURE  CHECKED 
“RUNS 

RUN- ID?  CC  -Entered  by  user. 

$ IDENT?  BFCBMI S I , C CURT  I S,  5 5 50085 700 52 
SNUMB  6685T 

6685T  GEIN  EXECUTING  @ 09.430^ 

6685T-0L  WAIT-PERIP  @ 09.431 

6685T-0 1 WAIT-CORE  @ 09.431 

6685T-0 1 EXECUTING  @ 09.431  K 

6685T-01  INITIALIZING  @ 09.431 

6685T  OUTPUT  STARTED 

normal  termination 

6685T-01  PRG  TERMIN  @ 09.433  / 

The  resultant  report  is  shown  below.  The  column  headings  are  gener- 
ated automatically . 

“LIST  REPORT-1 


MOD-CHANGED 

SPR-NUM 

DATE-OPEN 

C 1 06 

0042 

6-18-73 

C102 

0180 

6-04-73 

C102 

0181 

6-02-73 

C105 

0182 

6-02-73 

F40  3 

0183 

6-02-73 

El  12 

0184 

6-02-73 

B103 

0185 

6-02-73 

E 1 1 3 

0186 

6-02-73 

C50  3 

0187 

6-02-73 

D/B 

0188 

6-04-73 

3. 2 Qualified  Retrieval 


A conditional  expression  may  be  used  to  qualify  the  retrieval 
of  data  during  a procedure.  Some  of  the  allowable  relational 
tests  are: 


Test 

Operator 

Equal 

EQ  or  = 

Less  than 

LT  or  < 

Greater  than 

GT  or  > 

Less  than  or 

equal 

LE,  or  <=, 

or 

=< 

Greater  than 

or  equal 

GE,  or  >=, 

or 

=> 

Not  equal 

NE,  or  >< , 

or 

<> 

Present 

PRESENT 

Absent 

ABSENT 

Contains 

CONTAINS 

Using  the  previous  Project  1 example,  the  retrieval  is  qualified 
to  include  only  those  problem-reports  for  the  year  1973  and  the 
month  of  October.  Please  note  that  DATE-OPEN  consists  of  the 
three  sub-items  MO-OPEN,  DA-OPEN,  and  YR-OPEN  and  can  be  refer- 
enced individually  by  item  name  or  collectively  as  DATE-OPEN. 

0010  INVOKE  ADOTRWS 

0020  RETRIEVE  PROBLEM-REPORT  FROM  DBRTRWS 
0030  WHERE  YR-OPEN  = ,,73"  AND  MO-OPEN  = "10" 

0040  PRINT  ON  FILE  REPORT-1  MOD-CHANGED, SPR-NUM, DATE-OPEN 
0050  END 
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A partial  list  of  the  resultant  report  is  as  follows 


MOD-CHANGED  SPR-NUM  DATE-OPEN 
C 1 04  4025  10-02-73 

D/B  4027  10-05-73 

C20  7 4028  10-05-73 

A504  4029  10-08-73 

C302  4030  10-09-73 

A505  4031  10-08-73 

A510  4031  10-08-73 

A40  3 4033  10-09-73 

D 1 09  4034  10-10-73 

A40  3 4035  10-11-73 

B 1 0 7 4036  10-11-73 

B 1 0 7 4037  10-11-73 

D/B  4038  10-11-73 

A404  4040  10-13-73 


H2  1 1 
G206 
H212 


A sorting  process  may  be  employed  after  the  retrieval  of  the 
data  to  order  the  selected  data  items.  The  sort  may  be  either  in 
ascending  or  descending  order  and  sorted  on  more  than  one  data 
item. 


In  the  previous  report  it  is  evident  that  the  DATE-OPEN  is 
not  in  order  by  day  within  the  year  and  month.  To  correct  this 
the  SORT  is  employed. 


0010  INVOKE  ADOTRWS 

0020  RETRIEVE  PROBLEM-REPORT  FROM  DBRTRWS 
0030  WHERE  YR-OPEN  = "73"  AND  MO-OPEN  = "10" 


0035  SORT  PROBLEM-REPORT  ON  DA-OPEN  IN  ASCENDING  ORDER 

Statement 


0040  PRINT  ON  FILE  REPORT-1  MOD-CHANGED, SPR-NUM, DATE-OPEN 
0050  END 


Some  of  the  sorted  data  is  shown  below. 


MOD-CHANGED 

SPR-NUM 

DATE-OPEN 

C101 

4043 

10-01-73 

H215 

5121 

10-01-73 

H21 1 

5122 

10-01-73 

D/B 

5123 

10-01-73 

H208 

5194 

10-01-73 

C 1 04 

6451 

10-01-73 

H231 

6452 

10-01-73 

E 104 

6455 

10-01-73 

El  04 

6457 

10-01-73 

A40  3 

6462 

10-01-73 

D 1 08 

6464 

10-01-73 

D4 1 2 

6467 

10-01-73 

D109 

6468 

10-01-73 

E102 

6522 

10-01-73 

E 1 09 

6843 

10-01-73 

C 1 04 

4025 

10-02-73 

C 1 1 3 

5124 

10-02-73 

3.4  Count  and  Sum 


The  COUNT  function  counts  the  number  of  times  an  item  contains 
data  other  than  blank  and  adds  one  to  the  count  each  time  an  ex- 
pression containing  this  function  is  evaluated.  The  SUM  function 
sums  the  contents  of  an  item. 


I1  1 

i 

s 


i I 


~ i - . , & # . 


Both  of  these  functions  require  the  creation  of  a new  variable 
to  contain  the  sum  or  count.  The  mathematical  new  variable,  $ new- 
variable-name , is  initially  set  to  zero  and  cannot  exceed  21  sig- 
nificant digits  unless  previously  defined. 

Project  5,  file  2 (the  MODULE  entry),  contains  some  fields 
suitable  to  demonstrate  these  features. 

The  ADFQ  for  this  dataset  follows. 

"SYSTEM  MDQ  NEW 

READY 

"ADFQ 

BRIEF  OR  FULL  FULL 

ADF  OBJECT  FILE  — AD0SAFS1 
DATA  BASE  REF  — DBRSAFSN 
SEQUENTIAL  FILE 
ENTRY  — ALL 
ENTRYS  ARE 
MODULE 

ENTRY  — MODULE 
ITEM  — ALL 
ITEMS  ARE 
MOD- ID 

SCAN  FIELD 
A/N  SIZE  8 
SSYS-ID 

A/N  SIZE  1 
SSYS-VERSION 
A/N  SIZE  7 
NUM-OCCUR 

COBOL  NUMERIC  SIZE  6 
CONST-TYPE 

A/N  SIZE  7 
TECH-ID 

A/N  SIZE  12 

(continued) 
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ITEM  — 

ENTRY  — 

DATA  BASE  REF  — 
ADF  OBJECT  FILE  — 


Using  the  ADFQ  and  the  definitions  from  the  Glossary  (Table  1) 
as  a reference,  it  is  possible  to  formulate  a meaningful  query 
employing  both  the  SUM  and  COUNT  functions.  The  following  pro- 
cedure was  written  to  determine  the  number  of  modules  and  the 
total  number  of  lines  of  code  (NUM-OCCUR)  for  this  project.  In 
this  procedure,  a running  total  for  ID-COUNT  and  TOT-LINES  is 
generated. 

0010  INVOKE  ADOSAFS 1 

0020  RETRIEVE  MODULE  FROM  DBRSAFSN 

0040  LET  $ ID-COUNT  = COUNT  MOD- ID 

0050  LET  $TOT-LINES  = SUM  NUM-OCCUR 

0055  PRINT  ON  FILE  REPORT-4  $ I D-COUNT,  $TOT-L INES 

0060  END 

The  resultant  report  is  listed. 

ID-COUNT  TOT-LINES 


1.000000 

228.000000 

2.000000 

506.000000 

3.000000 

540.000000 

4.000000 

668.000000 

5.000000 

674.000000 

6.000000 

688.000000 

7.000000 

702.000000 

8.000000 

1335.000000 

9.000000 

2354.000000 

10.000000 

2985.000000 

11.000000 

3549-000000 

12.000000 

3994.000000 

13.000000 

4564.000000 

14.000000 

4894.000000 

15.000000 

5607.000000 

15 
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From  the  report  it  is  obvious  that  the  COUNT,  SUM  and  PRINT 
statements  are  being  executed  for  each  record  retrieval,  and  a 
running  count  and  sum  are  being  printed.  To  avoid  this  occurrence, 
the  WRAP-UP  statement  can  be  used.  In  this  case  it  causes  the 
execution  of  the  PRINT  statement  upon  completion  of  all  of  the 
retrievals . 


It  is  incorporated  as  shown  below. 

0010  INVOKE  ADOSAFS 1 

0020  RETRIEVE  MODULE  FROM  DBRSAFSN 

0040  LET  $ I D-COUNT  = MOD-ID 

0050  LET  $TOT-L I NES  = SUM  NUM-OCCUR 

0051  WRAP-UP 

0055  PRINT  ON  FILE  REPORT-4  $ I D-COUNT, $TOT- L INES 
0060  END 

Now  the  resultant  report  contains  only  the  totals. 

ID-COUNT  TOT-LINES 

2413.000000  317031.000000 

3. 5 Conversational  MDQS 


The  Conversational  MDQS  Language  (CMDQ)  provides  an  inter- 
active method  of  generating  simple  queries.  To  utilize  this 
feature  special  permissions  must  be  obtained  from  the  organization 
responsible  for  the  database  administrator  functions.  Some  of  the 
relevant  features  are  demonstrated. 

BROWSE:  Here  the  database  is  scanned  for  entries  that  meet  the 

user- supplied  criteria  and  are  displayed  on  the  terminal.  In 
the  following  example,  all  Project  1 records  that  have  a major 
error  category  of  BB  are  requested  and  sorted  by  date-open  while 
only  the  date-open,  major  and  minor  error  categories,  and  number 
of  days-open  are  printed. 


CMDQ 

APPLICATION  FILE  IS  - ADOTRWS 
DATABASE  REFERENCE  IS  DBRTRWS 
FUNCTION  - BROW 

(continued) 
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ONLY  ENTRY  IN  DBR  IS  PROBLEM-REPORT 

DATA  ITEMS  TO  BE  DISPLAYED  - MAJOR-CAT, MINOR-CAT, DATE-OPEN 
More  items  ? DAYS-OPEN 
More  items  ? 

DISPLAY  EVEN  IF  BLANK  OR  ZERO  ? YES 

PAUSE  BETWEEN  ENTRY  INSTANCES  ? 

DATA  ITEMS  TO  BE  SUMMED  OR  COUNTED  - 

SELECTION  CRITERIA  - MAJOR-CAT  = "BB" 

More  ? 

LIMIT  # SETS  OF  DATA  TO  - 

SEQUENCE  DATA  ON  - DA-OPEN, MO-OPEN,  vr-OPEN 

More  ? 


RUN-ID?  CC 
$ IDENT?  1 

BFCBMIS1, 

SNUMB  I866T 

MAJOR-CAT  = 

BB 

M I NOR-CAT  = 

062 

DATE-OPEN= 

10-01-73 

DAYS-OPEN= 

0 

MAJOR-CAT  = 

BB 

M I NOR-CAT  = 

010 

DATE-OPEN= 

10-01-73 

DAYS-OPEN 

8 

MAJOR-CAT  = 

BB 

MINOR-CAT= 

060 

DATE-OPEN= 

11-01-73 

DAYS-OPEN= 

15 

MAJOR-CAT  = 

BB 

MINOR-CAT= 

061 

DATE-OPEN= 

11-01-73 

DAYS-OPEN= 

4 

MAJOR-CAT  = 

BB 

MINOR-CAT= 

062 

DATE-OPEN= 

11-01-73 

DAYS-OPEN= 

5 

CURT  IS, 355008570052 


A carriage  return  was  entered  for  null  or  negative  responses . 
The  selection  criteria  must  be  entered  in  the  format  acceptable 
to  the  procedures  syntax  analyser.  If  an  error  is  made  here 
the  procedure  will  not  execute  and  a message  indicating  syntax 
errors  will  appear. 
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CHOOSE:  This  function  allows  the  user  to  choose  data  from  a data- 

base and  write  it  to  a permfile.  It  may  be  qualified,  sorted,  etc. , 
as  per  the  interactive  question.  In  this  instance  the  user  wishes 
to  make  a sub-file  of  the  Project  1 data  containing  only  the 
records  with  major  error  category  of  BB.  Only  five  instances  were 
chosen  for  convenience. 


CM  DO 

APPLICATION  FILE  IS  - ADOTRWS 
DAI  ABASE  REFERENCE  IS  DBRTRNS 
FUNCTION  - CHOOSE 

ONLY  ENTRY  IN  DBR  IS  PROBLEM- REPORT 

DATA  ITEMS  To  BE  DISPLAYED  - ALL 

DISPLAY  EVEN  IF  BLANK  OR  ZERO  ? Y 

PAUSE  BETWEEN  ENTRY  INSTANCES  ? 

DATA  ITEMS  TO  BE  SUMMED  OR  COUNTED  - 

SELECTION  CRITERIA  - MAJOR-CAT  = “BB" 
More  ? 

LIMIT  » SETS  OF  DATA  To  - 5 

OUTPUT  CATALOC/FILE-STRING  IS 
- BECBM IS  I /CHOOSE 

EXTRACT  ALL  INSTANCES  ? Y 


RUN-ID?  CC 

$ IDENT?  BFCBMISI ,C  CURT  IS. 555008570052 
SNUMB  2001 T 

2 00  IT 

TERMINATE  PROCEDURE  BY  RESPONDING  'END-'  TO  A 
NON  DA  I A REOUES  I 

MOD-CHANGED-  A3  I 3 
SPR-NUM-  0194 
MOD-SOURCE-  A3 1 3 
DAlE-OPEN-  6-05-73 
MO-OPEN-  6 
DA-OPEN-  05 
YR-OPEN-  73 
SEVERITY-  2 
TEST-PER-  V 
TEST- ID- 

ERROR-CAT-  BB I 40M-0300 
MAJOR-CAT-  BB 
MINOR-CAT-  140 


SMN-NUM-  M-0300 

COR-TYPE-  X 

NEW-MOD- 

DOC-UP- 

COM-CH- 

DB-CH-  X 

EXPLAN- 

DATE-CLOSE-  6-05-73 
MO-CLOSE-  6 
DA-CLOSE-  05 
YR-CLOSE-  73 
PROJ— VERS  I ON*  B1.K2 
PROJ— ID-  03 
CODE-CONT- 
DAYS-OPEN-  0 
MOD-CHANGED-  C2 I I 
SPR-NUM-  0214 
MOD-SOURCE-  C2 I I 
DATE-OPEN-  6-06-73 
MO-OPEN-  6 
DA-OPEN-  06 
YR-OPEN-  73 
SEVERITY- 
TEST-PER-  V 
TEST- ID- 

ERROR-CAT-  BB  I 40M-0365 

MAJOR-CAT-  BB 

MINOR-CAT-  140 

SMN-NUM-  M-0365 

COR-TYPE*  X 

NEW-MOD*  X 

DOC -UP- 

COM-CH- 

DB-CH- 

EXPLAN- 

DATE-CLOSE-  6-06-73 
MO-CLOSE-  6 
DA-CLOSE-  OB 
YR-CLOSE-  73 
PROJ— VERS  ION-  BLK2 
PROJ- ID-  03 
CODE-CONT- 
DAYS-OPEN-  2 

ACTIVITY  TERMINATED 

FUNCTION  - DONE 


r 


The  response  Y was  given  for  yes  answers.  A CR  was  entered  for 
null  or  negative  responses.  The  permfile  BFCBM I S 1 /CHOOSE  was 
created  automatically  and  has  the  same  format  as  the  original 
database . 


A listing  of  the  permfile  follows. 


A313 

0194A313 

6-05-732 

V 

BB140M-0300  X 

6-05-73BLK2 

03 

F5^4 

0195F504 

6-04-73 

V 

BB 1 7 0M-0  30  IX 

6-05-73BLK2 

03 

C2}0 

0209C210 

6-06-732 

V 

BB0  60M-0  3 6 1 X 

6-08-73BLK2 

03 

G 1 3 1 

0211G131 

6-06-73 

V 

BB060M-0  37  1XX 

6-1 1-73BLK2 

03 

C 2 J 1 

0214C21 1 

6-06-73 

V 

BB140M-0365X 

6-08-73BLK2 

03 

LOAD:  A new  sequential  (or  index  sequential)  database  can  be 

loaded  with  data  supplied  interactively  by  the  user.  The  LOAD 
command  queries  the  user  for  each  item  of  data  to  be  supplied. 

All  the  definitions  must  be  previously  defined  for  this  command 
to  function.  In  this  case  the  file  structure  must  be  flat.  The 
output  database  must  be  created  as  a permfile  prior  to  execution. 

Here  the  user  wants  to  enter  the  Project  2 testing  data  inter- 
actively. Every  data  item  will  be  supplied. 

READY 

:;CMDQ 

APPLICATION  FILE  IS  - AD0B1S1 

DATABASE  REFERENCE  IS  DBRB1S1 

FUNCTION  - LOAD 

ENTRY  TO  BE  LOADED  - TESTING 

KEY  ITEMS  ARE 
TEST-CHAR 

ADDITIONAL  ITEMS  TO  BE  LOADED  - ALL 

(continued) 
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RUN- ID?  CC 

S I DENT?  BECBM IS  I , C CURT  1 S ,555008570052 
SNUMB  22 1 5T 


22  I 5T 

TERMINA1E  PROCEDURE  BY  RESPONDING  'END'  To  A NON  DATA  REOUEST 
TEST-CHAR? 


NUM-RUNS-TOT? 


TEST-CHAR? 


I 79 

NUM-RUNS-OK? 


NUM-RUNS-TOT? 


143 

AHRS-PER-TEST? 


NUM-RUNS-OK? 


9 

BLOCK? 


AHRS-  aER-TEST? 


TEST-PER? 


248 

BLOCK  ? 1 


I MCT 
OKAY? 


TEST-PER? 


ENTRY  STORED 
NEXT  ENTRY 
? 


TEST-CHAR? 


SVT 

OKAY? 


ENTRY  STORED 
NEXT  ENTRY 
? 


NUM-PUNS-7'OT? 


TEST-CHAR? 


4 03 

NUM-RUNS-OK? 


NUM-RUNS-TOT? 


293 

AHRS-PER-TEST  ? 
7 

BLOCK? 


NUM-RUNS-OK? 


AHRS-PER-TEST? 


TEST-PER? 

I MCT 
OKAY? 


320 

BLOCK? 


TEST-PER? 


ENTRY  STORED 
NEXT  ENTRY 
? 


SVT 

OKAY? 


ENTRY  STORED 
NEXT  ENTRY 
? 


ACTIVITY  TERMINATED 


i 


A list  of  the  entered  data  is  as  follows. 

5 179  143  9 1 IMCT 

5 403  293  7 0 IMCT 

5 5 0 248  1 SVT 

5 8 1 320  0 SVT 

Note  that  this  was  just  an  exercise  and  the  actual  Project  2 data 
was  not  entered  in  this  way. 


Section  IV 


MORE  ADVANCED  USAGE 


Some  of  the  more  advanced  features  of  MDQS  are  introduced 
here  including  the  production  of  formatted  reports , writing  data 
subsets,  interfacing  to  application  programs,  and  the  use  of  the 
Table  Lookup  facility. 

4. 1 Formatted  Reports 

MDQS  provides  relatively  easy  format  control  for  printed 
reports.  The  following  Project  5 report  shows  a cover  page, 
horizontal  page  headings,  new  variable  output  format  control, 
column  control  of  headings  and  data,  the  use  of  system  variables 
and  the  printing  of  a final  or  total  line.  Page  numbering  and 
lines/page  control  are  defaulted  to  the  system  standard. 

0010  INVOKE  ADOSAFS 1 

0020  REPORT  SAFS 1 ON  PRI NTER-*- Indicates  report  is  to  be  printed. 

0030  COVER  PAGE  IS  COVl^Names  cover  page  section;  causes  auto,  printing. 

0040  PAGE  HEADING  IS  HDl-*Names  paf  heading  section;  causes  printing 

at  top  of  each  new  page. 

00  50  PAGE  FOOTING  IF  FT  1 ♦Indicates  a footing  line  for  each  page. 

0060  COV1,  SPACE  15 ■♦Vertical  and  page  control. 

0070  LINE  "PROJECT  5 DATA"  COL  60-*Horizontal  column  control. 

0080  SPACE  2 

0090  LINE  "FOR  1974  ONLY"  COL  60-^Line  indicates  a new  line. 

0100  SPACE  3 

0110  LINE  "SORTED  BY  MONTH  AND  DAY"  COL  55 

0120  SPACE  20 

0130  LINE  "COMPUTATION  OF  DAYS  BETWEEN  FAILURES"  COL  70 

0140  LINE  "AND  NUMBER  OF  DAYS  TO  FIX"  COL  70 

0150  LINE  "ASSUMING  365  DAYS/YEAR  AND  30  DAYS/MONTH"  COL  70 

0160  LINE  %DATE-TIME  COL  70^-Print  system  variable  for  date  and  time. 

0170SPACE  TOP  ♦■Spaces  to  new  page  top. 


(continued) 


0180HD1.  LINE  "PROJECT  5 DATA  - 1974"  COL  60 
0190  SPACE  3 

0200  LINE  "DAYS  BETWEEN"  COL  14, 

0210  "DATE-OPEN"  COL  39, 

0220  "NO.  OF  DAYS"  COL  61, 

0230  "MODULE"  COL  80, 

0240  "ERROR  CATEGORY"  COL  99 

0250  LINE  "FAILURES"  COL  16, 

0260  "OPEN"  COL  65, 

0270  "ID"  COL  82, 

0280  "MAJOR"  COL  100, 

0290  "MINOR"  COL  107 

0300  SPACE  1 


Horizontal  column 
headings 


0310  FT1.  LINE  SPACE-NUMBER  COL  65-<-System  variable  in  footer  line. 
0315  DEFINE  $DIFF, $NODAYS2, $OPEN  WITH  PIC  "999"  ^ Defines  new 


0316  DEFINE  $AVEDAYS, $AVEOPEN  WITH  PIC  "999" 

0317  DEFINE  $TOTDAYS,  $TOTOPEN, $NOENT  WITH  PIC  "99999"| 
0320  PRT . LINE  $D I FF  COL  19,^ 

DATE-OPEN  COL  40, 


mathematical 
variables  with 
Cobol-like  pic- 
ture desc. 


0330 

0340 

350 

0360 

0370 


$OPEN  COL  66, 
MOD-CHANGED  COL  79, 
MAJOR-CAT  COL  103, 
MINOR-CAT  COL  108, 

0390  DEFINE  $SW  WITH  PIC  "9"/> 

0391  PRT 1 . SPACE 


Data  line  showing  new  variables  and  items 
from  data  with  horizontal  format  control. 


U Final  line  of  report 


0392  LINE  "AVERAGE  D.B.V"  COL  2,$AVEDAYS  COL  19  PIC  "999 


0393 


"AVERAGE  NO.D.O."  COL  48,$AVEOPEN  COL  66  PIC  "999'J 


0400  A2 . RETRIEVE  PROBLEM-REPORT  FROM  DBRSAFS  lj 
0410  WHERE  YR-OPEN  =74  l 


Qualified  retrieval. 


0415ONLY  45  ENTRIES 
0416  WHEN  A2 

0420  SORT  PROBLEM-REPORT  ON  MO-OPEN  - 30  + DA40PEN-*Sort  on  date. 
0430  IF  $SW  = 1 GO  TO  LI  -^Branching  logic. 
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0440  LET  $NODAYS2  = 30  + MO-OPEN  - 30  + DA-OPEN 
0450  LET  $SW  = 1 

460  LI. LET  SNODAYS 1 - 30  + MO-OPEN  + DA-OPEN 
0470  LET  $DI FF  = $NODAYS2  - SNODAYSl 

0480  LET  $OPEN  = (YR-CLOSE  - 74)  + 365 

0490  + MO-CLOSE  +30-30  + DA-CLOSE 

0500  - C MO-OPEN  + 30  - 30  + DA-OPEN) 

0502  LET  $NOENT  + COUNT  DA-OPEN 

0530  PRINT  PRT 

0540  LET  $NODAYS2  = $NODAYSl 

0541  HOLD  WITHIN  A2  $DIFF,$OPEN 

0542  LET  STOTDAYS  = SUM  $DI FF 

0543  LET  STOTOPEN  = SUM  $OPEN 

0546  LET  $AVEDAYS  = $TOTDAYS  / $NOENT 

0547  LET  SAVEOPEN  = $TOTOPEN  / $NOENT 

0548  WRAP-UP 

0549  PRINT  PRT1 

0550  END 


ComputaClons 


Causes  data  line 
to  be  printed. 


Control  logic 


■♦■Control  logic 
^Causes  final  line 
to  be  printed. 


i 


COMPUTATION  Of  DAtS  8«TWEEN  PAItURES 
AND  KUKBEH  or  CRTS  TO  MX 
-ASSUMING -365  0AISMES»~A»IX-30  PAIS/ftONTH 
10/25/77  10.J59 


H 


Figure  1:  Cover  Page  for  Formatted  Report 
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Reports  with  format  control  can  also  be  directed  to  a perm- 
file  for  later  printing  on  the  teletype.  The  Project  3 "Errors 
by  Test  Period"  report  is  one  example  of  a teletype  report.  Note 
that  in  this  report  the  titles  are  vertical. 


0010  INVOKE  ADOSDS1  ■♦•Indicates  report  to  permfile. 

0020  REPORT  R6  ON  FILE  R65DS1 

00  30  PAGE  HEADING  IS  HD1  •♦-'James  page  heading. 

0040  PAGE  FOOTING  IS  FT1  •♦-Names  page  footing. 

0045  DEFINE  $T  WITH  PIC  "99999" 

0046  DEFINE  $T 1 , $T2, $T3, $T4  WITH  PIC  "9999"  Defines 

new 

0047  DEFINE  $PER 1 , $PER2 , $PER3 , $PER4  WITH  PIC  "99 . 99"  >variabies 

0048  DEFINE  $T5  WITH  PIC  "9999"  and  thelr 

size 

0049  DEFINE  $PER5  WITH  PIC  "99.99"  attribute 


Defines 


and  their 
size 

attributes . 


0050  HD  1 . LINE  "PROJECT  3"  COL  38 
0055  SPACE  1 | 

0060  LINE  "ERRORS  BY  TEST-PER"  COL  34  fPage  headin8 
0065  SPACE  J 

0070  PRT . LINE  "DEVELOPMENT"  COL  2,  "NO  OF  ERRORS"  COL  20, 
0080  $T 1 COL  35,  "PERCENT"  COL  45,  $PER1  COL  60 
0090  SPACE  2 

0100PRT2 . LINE  "VALIDATION"  COL  2,  "NO  OF  ERRORS"  COL  20, 
0110  $T 2 COL  35,  "PERCENT"  COL  45,  $PER2  COL  60 
0115  SPACE  2 

0120  PRT3 . LINE  "INTEGRATION"  COL  2,  "NO  OF  ERRORS"  COL  20, 
0130  $T3  COL  35,  "PERCENT"  COL  45,  $PER3  COL  60 
0135  SPACE  2 I 

0140  PRT4.  LINE  "ACCEPTANCE"  COL  2,  "NO  OF  ERRORS"  COL  20,  I 
0150  $T4  COL  35,  "PERCENT"  COL  45,  $PER4  COL  60 

0155  SPACE  2 

0156  PRT4A . LINE  "OPERATIONAL"  COL  2,  "NO  OF  ERRORS"  COL  20 

0157  $T 5 COL  35,  "PERCENT"  COL  45,  $PER5  COL  60 

0158  SPACE  2 

0160  PRT5.  LINE  "TOTAL  ERRORS"  COL  20,  $T  COL  35  , 

0290  FT  1 . LINE  %DATE  COL  40  ♦-Page  footing 

(continued) 
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0300  RETRIEVE  PROBLEM-REPORT  FROM  DBRSDS1 


0301  WHERE  SPR-CHAR  = "2" 

0310  IF  TEST-PER  = "D"  LET  $T1  a $51  + 1 THEN  GO  TO  FIN. 

0320  IF  TEST-PER  = "V"  LET  $T2  s $T2  + 1 THEN  GO  TO  FIN. 

0340  IF  TEST-PER  = "l»  LET  $T3  = $T3  + 1 THEN  GO  TO  FIN. 

0350  IF  TEST-PER  = "A"  LET  $T4  = $T4  + 1 THEN  GO  TO  FIN. 

0355  IF  TEST-PER  = "0"  LET  $T5  = $T5  + 1 THEN  GO  TO  FIN. 

0440  FIN.  LET  $T  = $T  + 1 

0450  WRAP-UP 

0470  LET  $PER2  = $T2  / $5  * 100. 

0480  LET  $PER1  = $T1  / $T  55  100. 

0490  LET  $PER3  = $T3  / $T  !C  100. 

0500  LET  $PER4  = $T4  / $T  J!  100. 

0505  LET  $PER5  = $T5  / $T  * 100.  ' 

0510  PRINT  PRT 
0520  PRINT  PRT2 

0530  PRINT  PRT 3 ln  . 

> Print  report  lines. 

0T40 PRINT  PRT 4 

0545  PRINT  PRT4A 

0550  PRINT  PRT 5 / 

0560END 

The  result  printed  on  the  terminal  is  shown  below. 

PROJECT  3 

ERRORS  BY  TEST-PER 


►Computations 


DEVELOPMENT 

NO 

OF 

ERRORS 

0000  PERCENT 

00.00 

VAL I DAT  ION 

NO 

OF 

ERRORS 

0000  PERCENT 

00.00 

INTEGRATION 

NO 

OF 

ERRORS 

1984  PERCENT 

91.64 

ACCEPTANCE 

NO 

OF 

ERRORS 

0019  PERCENT 

00.88 

OPERATIONAL 

NO 

OF 

ERRORS 

0162  PERCENT 

07.48 

TOTAL 

ERRORS 

02165 

4.2  Writing  Data  Subsets 


It  is  possible  to  create  any  number  of  subsets  of  the  data- 
base. To  demonstrate  this,  a data  subset  by  a specific  major 
error  category  was  created  using  the  Project  1 data.  The  WRITE 
statement  was  employed  for  this  task.  The  WRITE  statement  writes 
data  to  a standard-system  sequential  file. 

MDQS  has  the  capability  of  accepting  parameterized  values 
as  input  to  a procedure.  Employing  this  facility  for  selecting 
the  required  major  error  category  makes  the  procedure  more  univer- 
sal . 

This  is  demonstrated  below. 

0010  INVOKE  ADOTRWS 

0020  RETRIEVE  PROBLEM-REPORT  FROM  DBRTRWS 

00  30  WHERE  MAJOR-CAT  = #MAJOR-CAT-«-Indicates  a value  wiU  be  inserted 

at  run  time.  „ , 

0040  WRITE  PROBLEM-REPORT  TO  BFCBMIS1/SHT-FILE**-  ltes  se4uentlal 

output  file. 

00  50  LET  $A  = COUNT  MAJOR-CAT^Counts  the  number  of  output  records. 

0060  WRAP-UP 

0070PRINT  ON  FILE  CNT-FILE  $A  "^-Prints  the  count  on  a file  for  printing. 

0080  END 

The  run  time  parameter  for  the  major  error  category  is  inserted  as 
follows . 

RUNS  # MAJOR-CAT  = C"AA") 


RUN-ID?  CC 

$ IDENT?  BFCBM I S 1 , C CURTIS, 555008570052 
SNUMB  7063T 

7063T  GEIN  EXECUTING  @ 11.325 
7063T-01  WAIT-PER I P @ 11.326 
7063T-01  EXECUTING  @ 11.328 
7063T-01  INITIALIZING  @ 11.327 
7063T-01  RETRIEVEING  SEQ  @ 11.330 
7063T-0 1 PRG  TERM  I N @ 11.335 
7063T  OUTPUT  STARTED 

Error  category  AA  Computational  errors  was  chosen  for  this  sample. 
Listing  the  count  field  shows  the  number  of  records  written  on 
the  new  file  SHT-FILE.  Note  that  this  file  need  not  be  previously 
created. 
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LIST  CNT-FILE 


342.000000 

The  output  record  file,  SHT-FILE,  is  a BCD  permfile  as  was  the 
input  master  file,  DBNTRWS . 

The  following  FORTRAN  program  was  used  to  print  the  SHT-FILE 
on  the  terminal. 


LIST 


0 0 1055 

#RUN 

=(BCD)#SHT-FILE"28" 

0020 

DIMENSION  IBUFC14) 

0040 

10 

READ(28 , END=30 ) I BUF 

0050 

WRITE(06, 1000)1 BUF 

0051 

GO  TO  10 

0055 

1000 

FORMATC IX, 1 4A6) 

0060 

30 

CONTINUE 

0070 

STOP 

0080 

END 

55  RUN 


MAJOR-CAT 


CIOI 

2 

OI97CIOI 

6-05-73 

V 

AA0408— 0332X 

6— 07— 73BLK2 

03 

F4I  2 
| 

0I98F4I2 

6— OS— 73 

V 

AA040B-0306X 

6-06— 738LX2 

03 

C2I2 

| 

0234A203 

6-07-73 

V 

AA0S0B-0362X 

6-06-7 3BLK 2 

03 

C302 

A 

024IC302 

6-07-73 

V 

AA020B— 04 1 2 

6-13— 73BLK2 

03 

C302 

A 

02  42C302 

6-07-73 

V 

AA  1208-04  MX 

6-13— 738LK2 

03 

C 102 

A 

02  55 Cl  02 

6-06-73 

V 

AAD20M— 03SIX 

6-06- 7 38 LX  2 

03 

B20S 

| 

02598205 

6-07-73 

V 

AA040M-0355X 

6-06— 73BUC2 

03 

8104 

2 

02618104 

6-06-732 

V 

AA0408— 03S.7X 

6-06-73BUC2 

03 

F30I 

A 

0303F30I 

6-11-73 

V 

A AO  1 08-0376X 

6- 1 1-73BLK2 

03 

F«07 

A 

0350F407 

6-13-731 

V 

AA0908-0492 

XX  6-I9-738LK2 

03 

BIOS 

| 

036SBI0S 

6-13-73 

V 

AA030M-04ISX 

6-I4-73BLK2 

03 

B20S 

| 

03736204 

6-14-731 

V 

AA040M-04S9X 

6-I5-73BLX2 

03 

A20B 

12 

002 

A 

03BIA20B 

6-14-731 

V 

AA  1208-06  16 

EX  6-26-7 3BLK2 

03 

04  ISC  102 

6-15-731 

V 

AA0608— 0487X 

6-I3-738LK2 

03 

0.107 

IB 

0102 

04300107 

6-14-73 

V 

AA  0908-061  OX 

7-06-73BLX2 

03 

04  38 Cl  02 

6-14-731 

V 

AAII08- 
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MDQS  procedures  may  reference  user  written  programs  in  COBOL, 
FORTRAN,  or  GMAP.  These  user  programs  must  be  stored  in  a User 
Subroutine  Library  which  is  created  in  the  Perform  Subsystem.  The 
method  for  this  process  is  shown  in  Appendix  A. 

The  MDQS  procedure  must  reference  the  library  in  which  the 
program  is  stored  and  the  name  of  the  program  (Program- ID)  from 
where  the  return  value  will  come. 

The  following  procedure  references  a previously  written 
COBOL  program  to  decode  the  complexity  value  in  the  Project  3 data. 
The  actual  COBOL  listing  is  contained  in  Appendix  A. 

The  MDQS  procedure  is  as  follows . 

0020  INVOKE  AD0SDS1 

00  30  L I fc  R ARY  BFCBMI S 1 /USLSDS 1 ^SPeclfles  the  library 

where  program  resides. 

0050  RETRIEVE  MODULE  FROM  DBRSDS1 

0060  WHERE  MOD-CHAR  CONTAINS  "1" 

0065  ONLY  25  ENTRIES 

0070  PRINT  ON  FILE  LIB-REP  PRO J- I D, MOD- I D, MOD-VER S I ON 

007  1 COMPLEXITY  USE  CODE-ANS  ^-Nam®s  the  program  that 

performs  the  decoding. 

0080  END 

The  following  shows  the  result  with  the  decoded  value. 

LIST  LIB-REP 


PROJ-  ID 

MOD- ID 

MOD-VERSION 

COMPLEXITY 

RAY  01 

PROG00  1 

IE 

MEDIUM 

RAY01 

PROG002 

OK 

MEDIUM 

RAY01 

PROG005 

OC 

MEDIUM 

RAY01 

PROG006 

OB 

COMPLEX 

RAY01 

PROG007 

2 K 

MEDIUM 

RAY01 

PROG008 

0B 

MEDIUM 

RAY01 

PROG009 

2 J 

MEDIUM 

RAY01 

PROG011 

4D 

MEDIUM 

RAY01 

PROG012 

2G 

SIMPLE 

RAY01 

PROG013 

2D 

MEDIUM 

RAY01 

PROG014 

OC 

MEDIUM 

RAYOl 

PROG015 

IB 

MEDIUM 

RAY01 

PROG016 

1C 

SIMPLE 

RAYOl 

PROG017 

3C 

MEDIUM 

RAYOl 

PROG018 

0A 

MEDIUM 

(continued) 


h 


RAY01 

PROG019 

OA 

S IMPLE 

RAY  0 1 

PROG020 

2B 

MEDIUM 

RAY  01 

PROG021 

2A 

MEDIUM 

RAYO  1 

PROG022 

OE 

MEDIUM 

RAY01 

PROG024 

IB 

COMPLEX 

RAY01 

PROG025 

4D 

MEDIUM 

RAY01 

PROG026 

2C 

MEDIUM 

RAY01 

PROG027 

2G 

MEDIUM 

RAY01 

PROG028 

3F 

MEDIUM 

RAYO  1 

PROG029 

2A 

MEDIUM 

4 . 4 Table  Lookup  Facility 

The  table  lookup  facility  allows  for  the  translation  of  the 
value  of  a data-item.  The  table  generation  as  well  as  the  linkage 
to  the  system  is  entered  in  the  interactive  perform  subsystem. 

An  outline  of  the  procedure  follows.  For  greater  detail  see 
reference  1,  page  C-25. 

The  first  step  in  the  process  is  to  create  a random  file  in 
which  the  table  lookup  process  is  to  reside.  The  access  function 
is  used  as  follows. 

"ACCE 

FUNCTION?  CF 

CATALOG  STRUCTURE  TO  WORKING  LEVEL? 

FILE  NAME , S I ZE(  I N LL INKS ) , MAX  SIZE, MODE ? TLUTEST,  20,  20,R 

PASSWORD? 

eimtsMtum 

LOGICAL  RECORD  SIZE? 

GENERAL  PERMISSIONS? 

SPECIFIC  PERMISSIONS? 

ACCESS  FILE? 

SUCCESSFUL. 

Note  that  it  is  necessary  to  create  the  random  file  with  the  same 
maximum  and  minimum  sizes. 

The  actual  table  lookup  values  are  entered  interactively  in 
the  Perform  Subsystem.  The  Project  1 data  item  TEST-PER  was 
chosen  to  demonstrate  the  decoding.  The  interactive  process  for 
entering  the  values  is  as  follows.  The  user  responses  are 
annotated. 
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SYSTEM  PERFORM 


FUNCTION?  BUILD 
PROG.  NAME?  TLU 


♦ Indicates  a table  lookup  is  to  be  built. 


$ 1DENT?BFCBMIS1,C  CURTIS,  553008570052  -User's  ident. 
PROCEDURAL  REF.  NAME-ABBR 


NAME  ON  LIBRARY-  TESTLU 
INDEX  OR  LOOKUP-  LOOK 
INPUT  SIZE-  2 
OUTPUT  SIZE-  12 
CORE  OR  FILE-  CORE 
TABLE  SOURCE  ON  FILE?  NO 
IN-  D 

OUT-  DEVELOPMENT 
IN-  V 

OUT-  VALIDATION 
IN-  A 

OUT-  ACCEPTANCE 
IN-  X 

OUT-  INTEGRATION 
IN-  OP 

OUT-  OPE RAT IONALD 
IN- 
DEFAULT VALUE-  ERROR 


Name  used  in  procedure  to 
-TEST  ♦ .... 

reference  this  table. 

-♦Name  for  internal  library  bookkeeping. 
♦The  process  will  be  a lookup. 

♦Size  of  value  to  be  decoded. 

♦ Size  of  output  value. 

♦Table  will  be  core  contained. 
♦Indicates  interactive  entry. 

N 


^Input  and  output  pair  values. 
(Input  is  two  characters,  right- 
hand  justified.) 


/ 


TLU  LIBRARY  FILE-  BFC BM I S 1 / TLUTEST 


Library  which  is  to 
contain  this  table. 


The  following  batch  run  is  created  as  a result  of  the  above 
interactive  process.  This  must  be  run  successfully  before  a 
procedure  to  use  the  table  is  initiated. 


FUNCTION?  LIST 


10$ 

20$ 

30$ 

40$ 

50$ 

60$ 


IDENT  BFCBM I S 1 , C CURT  I S , 5 5 5 0 0 8 5 7 0 0 5 2 

FILEDIT  SOURCE, OBJECT, INITIALIZE 
FILE  R5!,A1S,20L 

DATA  ”C, , COPY 

INCLUDE  SOURCE 

SYSLD  CATALOG=DMSCT 1 , RELOC , MASTER 


(continued) 


70$ 

OPTION  NOSETU, NOFCB 

80$ 

LOWLOAD 

90$ 

GMAP 

100 

LBL 

TESTLU 

no 

SYMDEF 

TESTLU 

120 

ERLK 

130 

ORG 

2 

140TESTLU 

NULL 

150 

BCI 

5, ABBR-TEST 

160 

BCI 

1, TESTLU 

170 

ZERO 

1024 

180 

VFD 

1/1, 3/4, 14/2, 12/2,6/0 

190 

VFD 

1/1,3/7,14/2, 12/12,6/0 

200 

OCT 

555555555555,0 

210 

END 

220$ 

EXECUTE 

230$ 

ENDLD 

240$ 

SYSLD 

CATALOG  = TESTLU, RE LOC,  MASTER 

250$ 

OPTION 

NOSETU, NOFCB 

260$ 

LOWLOAD 

270$ 

GMAP 

280 

LBL 

TESTLU 

290 

TTL 

ABBR-TEST  TLU  ROUTINE 

300 

LODM 

TLUMAC 

310 

TLU 

TESTLU 

320 

STRTBL  2,12 

330 

PAIR 

C D), (DEVELOPMENT  ) 

340 

PAIR 

( V), (VALIDATION  ) 

350 

PAIR 

( A), (ACCEPTANCE  ) 

360 

PAIR 

( I), (INTEGRATION  ) 

370 

PAIR 

(OD) , (OPE RAT IONALD) 

380 

ENDTBL 

390 

LOOKUP 

BFCBMIS 1, 

400 

INOPE 

L, (ERROR  ) 

410 

END 

420$ 

EXECUTE 

430$ 

ENDLD 

440$ 

ENDEDIT 

450$ 

ENDCOPY 

460$ 

SYSEDIT 

470ENDFILE/TESTLU 

480$ 

FILE 

R”, A I R, 20L 

490$ 

PRMFL 

Q:!,W,R,  BFCBMIS  1/TLUTES  T 

500$ 

ENDJOB 

TESTLU 


TESTLU 
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A procedure  demonstrating  the  decoding  process  follows. 

0010  INVOKE  AOOTRWS 

0020LI BRARY  BFCBM  1 S 1 / T LUTES T 

0030  RETRIEVE  PROBLEM-REPORT  FROM  DBRTRWS 

0045  SORT  PROBLEM-REPORT  ON  YR-OPEN, MO-OPEN, DA-OPEN 

0050  PRINT  ON  FILE  TLU-LST  MOD-CHANGED, SEVER  I TY, TEST-PER 
( TLU  ABBR-TFSTVlndicates  use  of  table  lookup  for  output. 

0060  END 

A partial  list  of  the  decoded  output  follows. 


MOD-CHANGED 

SEVERITY 

TEST-PER 

CIO  1 

INTEGRATION 

H21  5 

2 

INTEGRATION 

H2  1 1 

2 

INTEGRATION 

D/B 

1 

INTEGRATION 

H208 

OPERAT IONALD 

C 1 0 4 

1 

INTEGRATION 

H231 

1 

INTEGRATION 

E 1 04 

2 

INTEGRAT ION 

E104 

2 

INTEGRATION 

A403 

3 

INTEGRATION 

D10  8 

2 

INTEGRATION 

D4  12 

3 

INTEGRATION 

D109 

2 

INTEGRATION 

E10;? 

2 

INTEGRATION 

E 1 0 9 

2 

. OPERAT I ONALD 

C 1 04 

4 

INTEGRATION 

C 1 1 3 

2 

INTEGRATION 

H215 

2 

INTEGRATION 

A 1 04 

1 

VALIDATION 

F 50  f> 

2 

VAL I DAT  ION 

A30'9 

VALIDATION 

C106 

VALIDATION 
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APPENDIX  A 


SYSTEM  ADMINISTRATOR'S  GUIDE 
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The  purpose  of  this  appendix  is  to  provide  an  overall  view 
of  the  database  administrator  functions  for  the  Baseline  S/W 
Data  System.  More  detailed  procedures  are  contained  in  the 
Honeywell  Manual  (see  reference  2) . 

This  appendix  contains  a brief  description  of  steps  that 
must  be  performed  to  define  the  Historical  Database,  the  naming 
conventions  that  have  been  established  for  the  datasets,  a step- 
by-step  procedure  for  defining  the  data  using  one  of  the  Baseline 
datasets,  definition  listings  for  all  of  the  datasets,  an  over- 
view and  example  of  establishing  a subroutine  to  decode  values  in 
a dataset,  and  examples  of  database  restructuring  and  the  use  of 
the  Privacy  Subsystem. 

5 . 1 Historical  Database  Definition 

The  Historical  Database  for  the  Baseline  S/W  Data  System  is 
made  up  of  six  datasets  representing  error  and  module  information 
for  six  software  development  projects.  Each  dataset  is  defined 
as  a separate  database  using  the  MDQS  Definition  Languages — 
Directory,  Data,  and  Application. 

Directory  Definition.  The  Directory  Definition  Language  (DIR) 
defines  the  name  of  the  database;  i.e.,  its  database  reference, 
and  the  names  of  the  files  associated  with  the  database. 

Data  Definition.  The  Data  Definition  Language  (DDL)  defines 
the  structure  of  the  database  as  it  appears  on  the  external 
medium,  the  attributes  assigned  to  each  data  item  (length,  date 
type,  etc.),  and  the  relation  among  elements  of  the  data. 

The  Directory  and  Data  Definition  Languages  are  used  to 
bbild  a complete  definition  of  the  database  called  the  schema. 

Application  Definition.  The  Application  Definition  Language 
(ADF)  defines  the  records  and  the  data  items  for  those  records 
that  are  to  be  accessible  by  MDQS  procedures  and  defines  the 
access  path  to  be  used  to  retrieve  each  of  the  records  that  par- 
ticipates in  the  application  entry.  An  application  entry  (or 
subschema)  is  a subsetted  user's  view  of  the  databases.  There 
may  be  multiple  application  entries. 


A- 1 


i 

t 


uyi 


For  each  of  these  languages,  a source  code  must  be  written 
and  translated  by  MDQS  into  an  object  form  (see  Figure  A-l). 

The  job  control  language  necessary  for  the  translation  was  written 
interactively  in  the  Perform  Subsystem. 


DIRECT 

SOURCE 

DIRECTORY 

DEFINITION 

TRANSLATOR 


TRANSLATION 

REPORT 


2. 


5 


\ 

ADF 

SOURCE 

>1 

APPLICATION 

DEFINITION 

TRANSLATOR 

DDL 

OATA 

rn 

SOURCE 

Ufcr INI 1 IUW 

TRANSLATOR 

OBJECT 

TRANSLATION 

REPORT 


TRANSLATION 

REPORT 


Figure  A-l:  Translation  Flow 


5. 2 Naming  Conventions  for  Datasets 

The  following  naming  convention  was  established  to  facilitate 
module  recognition  within  the  system.  Each  dataset  has  the 
following  names  established  for  it. 


SYSTEM  ACRONYM 


NAME 

PREFIX 

PROJECT  SUFFIX 

§ Database  Reference 

DBR 

Established  for 

§ Database  Name 

DBN 

each  project. 

• Directory  Definition 

• Source 

DIS 

• Object 

DIO 

• Translation  Rpt 

TDI 

• JCL 

JDI 

• Data  Definition 
• Source 

DDS 

Established  for 

• Object 

DDO 

each  project. 

• Translation  Rpt 

TDD 

• JCL 

JDD 

• Application  Definition 

• Source 

ADS 

• Object 

ADO 

• Translation  Rpt 

TAD 

• JCL 

JAD 

The  Project  Suffixes  were  established  as  follows. 


PROJECT  SUFFIX 


1 

2 

3 

4 

5 

6 


TRWS 

B1S1 

SDS1 

APS1 

SAFSI  & SAFSN  (two  files) 
SMTC 


A form  was  designed  and  completed  for  each  dataset  to  provide 
a naming  control.  Figure  A- 2 contains  a copy  of  the  form  used  for 
project  1. 


5 . 3 Sample  Database  Definition  - Project  1 

The  following  annotated  listings  for  Project  1 show  the  source 
code  necessary  for  each  step  of  database  definition  as  well  as  the 
use  of  the  Perform  Subsystem  to  create  the  JCL  to  translate  the 
code. 


Step  1.  Directory  Definition  Source  Code 

10  DATA-BASE-REFERENCE  IS  DRRTRWS-^Def  ines  the  database  reference. 

20  SEQUENT IAL-DATA-BASE  IS  BFCBMIS 1/DBNTRWS  ■♦Location  & name  of  data. 
30  l)EF  INtT ION-SOURCE-FILE  IS  BFCBMIS  1/DDSTRWS  •♦Data  definition  source 
40  DEFINITION-OBJECT-FILE  IS  BFCBMIS  1 A)DOTRWS  *♦  & object. 

50  USER-SUBROUTINE-LIBRARY  .IS  BFCBMIS l/ULSTRW9-«-User  library  name. 

60  END  DBRTRWS 
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Data  Set  Name 


PROTECT  1 


Data-Base-Reference  Data-Base  Name 

(Same  as  Schema  Name) 

-jB^TTgwS  -nBrj-rpu/S 


DEFINITION  / JCL  / SOURCE  / OBJECT  / TRANS 


Directory 

XDTTRWS 

PISTSWS 

pribTRws 

TOrTRWS 

Data 

TDDTRwS 

DDSTRWS 

•DCXpTRWS 

TDDTRWS 

Application 

TAD-riews 

AUS-TRWS 

ADPTRWS 

TAIJrTRWS 

User-Subr 

Ub 

ULSTRWS 

UL®TRWS 

Figure  A-2:  Dataset  Naming  Form 
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Step  2.  Data  Definition  Source  Code 


0020: MD  DBRTRWS:FILE  IS  SEQUENTIAL* 

0020:01  PROBLEM-REPORT ;TYPE  IS  "03"  IN  PROJ-ID 
0030:: {RETRIEVAL  VIA  SCAN. 

0060:  02: MOD-CHANGED: PIC  X(7).  , 

0070:  02 : SPR-NUM  PIC  X(4)  JUSTIFIED  RIGHT. 

0080:  02:MOD-SOURCE:PIC  X(7). 

0090:  02:DATE-OPEN. 

0100:  03  MO-OPEN: PIC  XX. 

0110:  03  FILLER: PIC  X. 

0120:  03  DA-OPEN: PIC  XX. 

0130:  03  FILLER:  PIC  X. 

0140:  03  YR-OPEN : PIC  XX. 

0150:  02: SEVERITY: PIC  X. 

0160:  02 : TEST-PER : PIC  XX  JUSTIFIED  RIGHT. 

0170:  02: TEST-ID: PIC  X(8). 

0180:  02: ERROR-CAT. 

0182:  03:MAJOR-CAT: PIC  X(2). 

0183:  03: MINOR-CAT: PIC  X(3). 

0192:  03 : SMN-NUM : PIC  X(6)  JUSTIFIED  RIGHT. 

0195:  02: COR -TYPE. 

0200:  03:NEW-MOD: PIC  X. 

0210:  03: DOC-UP: PIC  X. 

0220:  03:COM-CH:PIC  X. 

0230:  03:DB-CH: PIC  X. 

0240:  03: EXPLAN: PIC  XX. 

0250:  02:DATE-CL0SE. 

0260:  03  MO-CLOSE: PIC  XX. 

0270:  03  FILLER  PIC  X. 

0280:  03  DA-CLOSE: PIC  XX. 

0290:  03  FILLER: PIC  X. 

0300:  03  YR -CLOSE: PIC  XX. 

0310:  02: PROJ-VERSION :PIC  X(6). 

0320:  02: PROJ-ID: PIC  XX. 

0330:  02 : CODE-CONT: PIC  X. 

0340  : 02 : DAYS-*) PEN : PI C XXX  JUSTIFIED  RIGHT,  j 

0341:  02: FILLER  PIC  X(10). 

0350: 98: SYSTEM  DETAIL {SCAN  ON  PROJ-ID. 


Defines  file  structure. 
Defines  entry  name. 
Defines  retrieval  method 


Jobol-like  description 
of  data. 


Step  3.  Application  Definition  Code 


Defines  location  of 

«ata  to  be  used, 
efines  entry  record 


0010  DATA-BASE  IS  DBRTAWS  IN  BFCBMIS 1/DIOTRWS 
0030  ENTRY  PROBLEM-REPORT  IS  RECORD  PROBLEM-REPORT 


Step  4.  JCL  Creation 


The  Perform  Subsystem  was  used  to  create  the  job  control 
language  to  translate  the  above  source  code.  The  user's  responses 
following  the  dash  and  blank  responses  are  carriage  returns. 

The  permfiles  have  no  catalog  names  and  no  passwords  hence  a 
carriage  return  was  entered. 


Note  that  this  sample  shows  all  the  JCL  in  one  job  stream 
but  it  can  be  done  separately  for  each  step.  In  the  following 
example,  all  the  translation  reports  are  saved  on  permfile  for 
easier  verification. 


SYSTEM  ?PtRFORM 

FONCr JON7  UUILD  DBAJCL 

S IDE.NTJBICBMISI.C  CURTIS. bS500«570052 

DBAJCL  FUNCTION-  LIST.DIRJCL.DDLJCL.AUFJCL.DFAJCL?  D1RJCL 


»MD03  DIRECTORY  CREATION* 

source  directory  definition  on  pern  filet  yes 

CATALOG  NAME  OF  SOURCE  01  R- 
SUBCATALoC  NAME  OF  SOURCE  DIR- 
FILE  NAME  OF  SOURCE  DIR-  DISTRHS 
rASSWD- 

VI7HBR 

CREATE  OBJECT  DIR  FILE?  YES 

LOG-ON  PASSNORD- 

PASSND- 

VIIHBRI 

CATALOG  NAME  OF  OBJECT  DIR- 
SUBCATALOG  NAME  OF  OBJECT  DIR- 
FILE  NAME  OF  OBJECT  DIR-  DIOTRWS 
PASSND- 

■NfMBNI 

MAX  FILE  SIZE  IN  LLINXS-  10 
TRANSLATION  REPORT  TO  PERM  FILE?  YES 
CATALOG  NAME  OF  TRANSLATION  REPORT- 
SUBCATALOG  NAME  OF  TRANSLATION  REPORT- 
TRANSLATION  REPORT  FILE  NAME-  TDITRNS 
PASSND- 
MMCMBNB 

CREATE  TRANSLATION  REPORT  FILE?  YES 
MAX  FILE  SIZE  IN  LLINKS-  10 

FOLLOW  NJTH  DDLJCL?  YES 


*MD0S  DATA  DEFINITION* 

SOURCE  DATA  DEFINITION  ON  PERM  FILE?  YES 
CATALOG  NAME  OF  SOURCE  DDL- 
SUBCATALOG  NAME  OF  SOURCE  DDL- 
F1LE  NAME  0C  SOURCE  DDL-  OOSTRWS 
PASSWD- 

mnubbns 

CREATE  OBJECT  DDL  FILE?  YES 
CATALOG  NAME  OF  OBJECT  DDL- 
SUBCAIALOG- NAME  OF  OBJECT  DDL- 
FILE  NAME  OF  OBJECT  DDL-  DUOTRWS 
KASSWD- 
MMUSBRM 

MAX  FILE  SICE  IN  LLINKS-  20 
TRANSLATION  REPORT  TO  PERM  FILE?  YES 
CATALOG  NAME  OF  TRANSLATION  REPORT- 
SUBCATALOG  Name  OF  TRANSLATION  REPORT- 
FILE  NAME  OF  TRANSLATION  REPORT-  TDDTRWS 


PASSWD- 

MMICBBRB 

CREATE  TRANSLATION  REPORT  FILE?  YES 
MAX  FILE  SIZE  IN  LLINKS-  20 

PRINT  UTILITY  REPORT  OF  OBJECT  DDL?  YES 

FOLLOW  WI  TH  ADF.JCL?  „ 


*MO0S  APPLICATION  DEFINITION* 

SOURCE  APPLICATION  DEFINITION  ON  PERM  FILE?  YES 

CATALOG  NAME  OF  SOURCE  ADF- 

SJBCA i'ALOG  NAME  OF  SOURCE  ADF- 

FILE  NAME  OF  SOURCE  ADF-  ADSTRWS 

PASSWD- 

MOfKGBK* 

CREATE  OBJECT  ADF  FILE?  YES 
CAT  ALOC  NAME  OF  OBJECT  ADF- 
SUUCATALOG  NAME  OF  OBJECT  ADF— 

FILE  NAME  OF  OBJECT  ADF-  AUOTRWS 

PASSWD- 

NBPX8BS1 

MAX  FILE  SIZE  IN  LLINKS-  20 
TRANSLATION  REPORT  TO  PERM  FILE?  YES 
OAIALOG  NAME  OF  TRANSLATION  RlPoRT- 
SUbCATAl.OC  NAME  OF  TRANSLATION  REPORT- 
FILE  NAME  OF  TRANSLATION  REPORT-  TADTRWS 
PASSWIi- 
MNRKKDN3 

CREATE  I'RANSI  ATION  REPORT  FILE?  YLS 
GAX  I U.:  SIZE  IN  II  INKS-  10 
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The  following  listing  is  the  resultant  job  stream  that  was 
created  by  the  above  interactive  procedure. 


##NORM 

$ IDENT  BFCBMISI ,C  CURTIS. 5S5008570052 

$ FILSYS 

USERID  BFCBMISI $P 

FCREAT  BFCBMI S I /DIOTRWS , MODE/RAND/, BLOCKS/ ID. 1 0/ 
FCREAT  BFCBMI S l./TD I TRWS , MODE/SEQ/ , BLOCKS/.!  ,10/ 

$ PROGRAM  DIRXLT.DUMP 

$ LIMITS  10, 1 OK 

$ PRMFL  TR, R/W,S, BFCBMIS I /TDITRWS 

$ PRMFL  DF.R/W.R, BFCBMISI /DIOTRWS 

$ DATA  I* 

$ SELECTA  BFCBMIS 1/DISTRWS 

$ FILSYS 

USERID  BFCBMIS I $P 

FCREAT/IDS/  BFCBMI S I /DDOTRWS , BASES IZE/20/. RNG/ 1 , 20/. 

INVENTOR.Y/NO/,  BLOCKS/20/ 

FCREAT  BFCBMISI /TDDTRWS , MODE/SEQ/ , BLOCKS/ J , 1 0/ 

$ PROGRAM  DDLXLT.DUMP 

$ LIMITS  I0.27K 

$ PRMFL  TR.R/W.S. BFCBMISI /TDDTRWS 

$ PRMFL  *3..  R/W.R, BFCBMIS  I /DDOTRWS 

$ DATA  *S 

$ SELECTA  BFCBMIS 1/DDSTRWS 

S PROGRAM  QUTD 

$ LIMITS  ,2.0K 

$ PRMFL  A1 ,R,R, BFCBMISI /DDOTRWS 

$ DATA  I* 

IDS  PRINT 

$ FILSYS 

USERID  BFCBMISI $P 

FCREAT  BFCBMIS 1 /ADOTRWS. MODE/RAND/. BLOCKS/ 1 ,20/ 
FCREAT  BFCBMIS 1 /TADTRWS , MODE/SEO/ , BLOCKS/J , 1 0/ 

$ PROGRAM  ADFXLT.DUMP 

$ LIMITS  I0.4IK 

$ PRMFL  AF, R/W, R, BFCBMIS I /ADOTRWS 

$ PRMFL  TR.W.S, BFCBMISI /TADTRWS 

$ DATA  I* 

OBJECT  ADF  IS  BFCBMIS 1 /ADOTRWS 
SOURCE  ADF  .IS  BFCBMIS  1 /AD STRWS 
$ SELECTA  BFCBMIS  I /ADSTRWS 

$ END  JOB 


* 


I 


for  Projects  1 through  6 are  contained  in  Figures  A- 3 through 
A-8,  respectively. 

DIRECTORY  DEFINITION 

♦LIST  UISIRWS 


10  data-base-reference  is  dbrtrws 
20  sequential-data-base  is  bfcbmisi/dbntrws 

30  DEFINITION-SOURCE-FILE  IS  BFCBMISI/DDSTRWS 
40  DEFINITION-OBJECT-FILE  IS  BFCBMISI /DDOTRWS 
50  USER-SUBROUTINE-LIBRARY  IS  BFCBMISI/ULSTRWS 
60  END  DBRTRWS 


DATA  DEFINITION 

★LIST  DDSTRWS 

0020*MD  DBRIRWSiFILE  IS  SEQUENTIAL. 

0020*01  PROBLEM-REPORT* TYPE  IS  "03"  IN  PROJ-ID 
0030*  * » RETRIEVAL  VIA  SCAN. 

0060*  02 ‘MOD-CHANGED*  P IC  X(7). 

0070*  Q2»SPR-NUM  PIC  X C 4 ) JUSTIFIED  RIGHT. 
0080*  02  * MOD-SOU  RCE  * P I C X(7). 

0090*  02*DATE-0PEN. 

0100*  03  MO-OPEN«PIC  XX. 

0110*  03  FILLERtPIC  X. 

0120*  03  DA-OPEN  * PIC  XX. 

0130*  03  FILLER*  PIC  X. 

0140*  03  YR-OPEN»PIC  XX. 

0150*  02 ‘SEVERITY* PIC  X. 

0160*  02*TEST— PER*  PIC  XX  JUSTIFIED  RIGHT. 

0170*  02*TEST-ID«PIC  X (8 ) . 

0180*  02* ERROR-CAT. 

0182*  03* MAJOR-CAT* PIC  X(2). 

0183*  03*MIN()R-CAT *PIC  X < 3 » . 

0192*  03»SMN-NUM*PIC  X(6)  JUSTIFIED  RIGHT. 

0195*  02  »COR-TYPE. 

0200*  03*NEW-MOD*PIC  X. 

0210*  03*D()C-UP*  PIC  X. 

0220*  03*COM— CH*  PIC  X. 

0230*  03*DB— CH*PIC  X. 

0240*  03*EXPLAN*  PIC  XX. 

0250*  02* DATE-CLOSE. 

0260*  03  MO-CLOSE* PIC  XX. 

0270*  03  FILLER  PIC  X. 

0280*  03  DA-CLoSE* PIC  XX. 

0290*  03  FILLER* PIC  X. 

0300*  03  YR-CLOSE* PIC  XX. 


(continued) 


Figure  A- 3:  Project  One  Definitions 
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DATA  DEFINITION  (cont’d) 


0310*  02*PROJ— VERSION*  PIC  X<6). 

0320*  02  *PR()J-ID*PIC  XX. 

0330*  02  *C  ODE-CON T * P I C X. 

0340*  02*nAVS-OPEN«PIC  XXX  JUSTIFIED  RIGHT. 

0341 « 02  *F ILLER  PIC  X( 10). 

0350* P8*S YSTEM  DETAIL ISCAN  ON  PROJ-ID. 


I 


APPLICATION  DEFINITION 


★LIST  ADSTRWS 


ooio  data-base  is  dbrtrws  in  bfcbmisi/diotrns 

0030  ENTRY  PROBLEM-REPORf  IS  RECORD  PROBLEN-REPORT 


I 4 


Figure  A- 3:  Project  One  Definitions  (Cont'd) 
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DIRECTORY  DEFINITION 


t 


*IIST  DISB1S1 

10  DATA-BASE-KEF ERENC  E IS  DRRBIS1 
20  SEQUENT XAL-DATA-BASE  IS  BFCBMIS 1/UBNBIS1 
30  DF.FINIIION-SOURCE-FILE  IS  BFCBHIS 1/DDSB IS  1 
40  OEFINITION-OBJECT-FILE  IS  BFCBHIS  1 /ODOR  IS  l 
30  OSER-SUBROUTINE-LIBRAKY  IS  BFCBMIS 1/ULSB1S l 
60  END  DBRB1S1 


DATA  DEFINITION 


XL 1ST  ODSB1S1 

0020:MD  DBRB1S  1 ; FILE  IS  SEQUENTIAL. 

O030«0l  PROBLEM-REPORT ; TYPE  IS  "1"  IN  SPR-CHAR 
0040: : ; RETRIEVAL  VIA  SCAN. 

0050:  02: SPR-CHAR: PICTURE  X. 

0060  : 02 : SSYS-ID:  PIC  X. 

0070:  02  : FILLER: PIC  X. 

0080:  02:DATE-OPEN. 

0090  : 03:MO-OPEN:PIC  99. 

0100:  03:DA-OPEN:PIC  99. 

0105:  03: YR -OPEN: PIC  99. 

0110:  02:  DATE-CLOSE. 

0120:  03:MO-CLOSE:PIC  99. 

0130:  03: DA-CLOSE: PIC  99. 

0140:  03: YR -CLOSE: PIC  99. 

0145:  02: ERROR-CAT. 

0150:  03 :HAJOR-CAT: PIC  X(2). 

0160:  03:MINOX-CAT:PIC  X(3). 

0170:  02 '.FILLER: PIC  X. 

0180:  02 : CODE -CO.VT : PIC  9. 

0190:  02 : F ILL ER: PIC  X. 

0200:  02 : COR-TYPE : PIC  X. 

0210:  02: FILLER: PIC  X. 

0220:  02:COR-MECH: PIC  X. 

0230:  02: FILLER: PIC  X. 

0240:  02: PHASE: PIC  X. 

0250:  02: FILLER: PIC  X. 

0260:  02: TYPE-TERM: PIC  X. 

0270:  02: FILLER: PIC  X(2). 

0280:  02 :HRS-TO-DISC:PIC  X(5) ; JUSTIFIED  RIGHT. 

0290:  02 : FILLER: PIC  X(3). 

0300:  02:HHRS-T0-FIX  PIC  9(5). 

0310:  02: FILLER: PIC  X(3). 

0320:  02:SPR-NUM:PIC  X(3). 

0330:  02: FILLER: PIC  X(2). 

0340:  02: MOD-CHANGED: PIC  X(27). 

0341:  02: FILLER  PIC  X(4). 

0345: 98: SYSTEM  DETAIL ;SCAM  ON  SPR-CHAR. 

03i0: 01  MODULE ;TYPE  IS  "2”  IN  MOD-CHAR 
0360: :;RETRIEVAL  VIA  SCAN. 

0370:  02:M0D-CHAR: PIC  X. 

0390:  02:FUNC-AREA2:PIC  X. 

0400:  02: FILLER: PIC  X. 

0410:  02 :M0D-1D: PIC  X(4). 

0420:  02: FILLER: PIC  X. 

Figure  A-4:  Project  Two  Definitions 
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DATA  DEFINITION  (cont'd) 

0430:  OZ:HOD-LASCJ: PIC  X. 

0440:  02 : HOD-SIZE J PIC  3(5). 

0450:  02:FIU.CR:FIC  X. 

0460:  02 :MOD-LANCA: PIC  X. 

0470:  02-.MOD-SIZEA  PIC  9(5). 

0471:  02 : P ILL i*  PIC  X(63). 

0475: 98:SYSTEM  DETAIL ;SC AN  ON  MOD-CHAP. 

0400:01  HARDWARE  ;TYPE  IS  ”3"  IN  HARD-CHAR 
0490:  : RETRIEVAL  VIA  SCAN; 

0500:  02:HARD-CHAR:  PIC  X. 

0510:  02:FILLER: PIC  X. 

0520:  02: COMP— ID: PIC  X(13). 

0530:  02:FILLER:PIC  X. 

0540:  02: COMP-RATE: PIC  X{7). 

0550:  02: FILLER: PIC  X(4). 

0560:  02: COMP-OS: PIC  X(13). 

0561:  02: FILLER  PIC  X(44). 

0565:98: SYSTEM  DETAIL; SCAN  ON  HARD-CHAR. 

0570:01  SOFTWARE ;TYPE  IS  "4"  IN  SYS-ID  " 

0580: : iRETRIEVAL  VIA  SCAN. 

0590  : 02: SYS- ID: PIC  X.  £ 

06)0:  02: SSYS-ID: PIC  X. 

0610:  02: FILLER: PIC  X{9). 

0620:  02:TECH-ID: PIC  X(ll). 

0630:  02:FILLER:PIC  X. 

0640:  02 : SO  FT -LANG  J : PIC  X. 

0650:  02 : SOFT-S IXEJ : PIC  X(5)  JUSTIFIED  RICHT. 

0660:  02:FILLER:PTC  X. 

0670:  02: SOFT-LANGA;PIC  X. 

0680  : 02 : SOFT-SI2EA: PIC  X(5)  ;JUSTIFIEO  -EIGHT . 

0685  : 02 '.FILLER  PIC  X(48). 

06 86: 98: SYSTEM  DETAIL ;SC AN  ON  SYS-ID.  , 

0690:01  TESTING;TYPE  IS  "5"  IN  TEST -CHAR 
0700: : ;RETRIEVAL  VIA  SCAN. 

0710:  02:TE3T-CHAR:PIC  X. 

0720:  02:FILLER:PIC  X(2). 

0730:  02 :NUM-RUNS-TOT: PIC  X(3)  ; JUSTIFIED  RIGHT. 

0740:  02: FILLER: PIC  X(2). 

0750  : 02:NUM-RUNS-OK:P1C  X(3)  JUSTIFIED  RIGHT. 

0760:  02: FILLER: PIC  X(2). 

0770  : 02: AHRS-PER-TEST: PIC  X<3)  ;JUSTIFIK.i)  RIGHT. 

07,10:  02:FILLER:PIC  X. 

0790:  02 : BLOCK;PtC  X. 

0800:  02 : FtLLX l : PTC  X. 

0810:  02 :TEST-PER : PIC  X(4)  ;JUSTIPtKD  RIGHT. 

0811:  02: FILLER  PIC  X(61). 

0815: 93: SYSTC  I DETAIL;SCAN  ON  TEST -CHAR. 


APPLICATION  DEFINITION 


*LIST  A0S8IS1 

10DATA-8ASE  IS  D8HB1S1  IN  BFCRMIS l/DIOH IS l 
2088 TRY  PROBLEM-REFORT  IS  RECORD  PROBLEM-REPORT 
3 GENTRY  MODULE  IS  RECORD  MODULE 
40ENTKY  HARDWARE  IS  RECORD  HARDWARE 
50ENTRY  SOFTWARE  IS  RECORD  SOFTWARE 
6 GENTRY  TESTIHC  IS  RECORD  TESTIMC 

Figure  A-4:  Project  Two  Definitions  (Cont'd) 
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DIRECTORY  DEFINITION 


“LIST  DISSDS1 

10  DATA-BASE-REFERENCE  IS  DBKSDS1 
20  S EQU ENT l AL-0 ATA-H AS E IS  HPC3MIS1/DBNSDSI 
30  DEFINITION -SOURCE-FILE  IS  BFCBMIS 1/DDSSDS 1 
*0  DEFINITION-OBJECT-FILE  IS  BFCBMIS  l /DDOSDS  1 
50  USER-SUSROUTINE-LIBRARY  IS  BFCBMIS  1/USLSDS  1 
60  END  DBRSDS1 


DATA  DEFINITION 


“LIST  DDSSDS1 

.40 

02:MOD-CH-VERS:  PIC  XX. 

20m 

ED  RBRSDS 1 ; FILE  IS  SEQUENTIAL. 

250 

02:DATE-OPEN. 

30:01  MODULE -.TYPE  IS  "1"  IN  MOD-CHAR: 

260 

03:MO-OPEN:PIC  XX. 

40:  : 

RETRIEVAL  VIA  SCAN. 

270 

03: FILLER:  PIC  X. 

50: 

02: MOD-CHAR: PIC  X. 

280 

03:DA-OPEN:PIC  XX. 

60: 

02: PROJ-ID: PIC  X(5). 

290 

03:  FILLER:  PIC  X. 

70: 

02: PROJ-CODE: PIC  XX. 

300 

03:  YR -OPEN:  PIC  XX. 

BO: 

02: MOD-ID: PIC  X(7). 

310 

02: TYPE-TERM:  PIC  X. 

90: 

02 : MOD-VERS ION : PIC  XX. 

320 

02:  SEVERITY:  PIC  X. 

100: 

02:M0D-TYPE:PIC  X. 

330 

02:TEST-PER: PIC  X. 

110: 

02 : COMPLEXITY : PIC  X. 

340 

02: ERROR-CAT. 

120: 

02: CONST -TYPE: PIC  X. 

350 

03:MAJOR-CAT:PIC  XX. 

130: 

02:HUM-OCCUR-S:PIC  X(5 ); JUSTIFIED 

RIGHT. 

360 

03:MINOR-CAT:PIC  XXX. 

140: 

02:NUM-OCCUR-O:PIC  X(5) ; JUSTIFIED 

RIGHT. 

370 

02: SMN-NUM: PIC  X(4). 

150: 

02:TECM-ID: PIC  9. 

380 

02:COR-TYPE: PIC  X(5). 

151: 

02: FILLER  PIC  X(53). 

390 

02: DAT E-CLOSE. 

160: 

98: SYSTEM  DETAIL ;SCAN  ON  MOD-CHAR. 

400 

03:MO-CLOSE: PIC  XX. 

170: 

01  PROBLEM-REPORT ;TYPE  IS  "2"  IN  SPR-CHAR: 

410 

03: FILLER: PIC  X. 

180: 

• RETRIEVAL  VIA  SCAN. 

420 

03: DA-CLOSE: PIC  XX. 

190: 

02: SPR-CHAR: PIC  X. 

430 

03: FILLER: PIC  X. 

200: 

02: PROJ-ID: PIC  X(5). 

440 

03:  YR-CLOSE:  PIC  XX. 

210: 

02: PROJ-CODE: PIC  XX. 

450 

02: DAYS-OPEN: PIC  XXX; JUSTIFIED  RICHT. 

220: 

02; SPR-NUM: PIC  X(4) ; JUSTIFIED  RIGHT. 

451 

02: FILLER  PIC  XC27). 

230: 

02:M0  7-CHANOXO:PCC  X(7). 

460 

98: SYSTEM  DETAIL;  SCAN  ON  SPR-CHAR. 

APPLICATION  DEFINITION 


-LIST  AOSSDS1 

10  DATA-BASE  IS  DBRSDSI  IN  BFCBMIS 1/DIOSDS l 

20  ENTRY  MODULE  IS  RECORD  MODULE 

30  ENTRY  PROBLEM-REPORT  IS  RECORD  PROBLEM-REPORT 


Figure  A-5:  Project  Three  Definitions 
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DIRECTORY  DEFINITION 
"LIST  D I SAPS  1 

010  DATA-HASE-RKFfiRKhCF.  IS  IMRAPSl 

020  SEQUENTIAL-DATA-BASE  IS  BFCBMIS 1/DBNAPOS 
■025  ON  TAPE  44284 

030  DEFINIT ION-S0URCE-FILE  IS  BFCBMIS 1/DDSAPS 1 
040  DEFINITION-OBJECT-FILE  IS  BFCBMIS'  DDOAPS 1 
050  USER -SUBROUTINE-LIBRARY  IS  BFCBMIS 1 /USLAPS I 
060  END  DBRAPS 1 


DATA  DEFINITION 
"LIST  DDSAPS1 

020:MD  DBRAPS 1 ;FILE  IS  SEQUENTIAL. 

030:01  PROBLEM-REPORT  RETRIEVAL  VIA  SCAN. 
040:  02: SMN-NUM: PIC  X(4). 

050:  02:DATE-CljDSK. 

060:  03: YR-CLOSE: PIC  XX. 

070:  03:MO-CLOSK: PIC  XX. 

080:  03: DA-CLOSE: PIC  XX. 

090:  02: SSYS-TYPE: PIC  X. 

100:  02 : SSYS-VERSION : PIC  XXX. 

110:  02 : SPR-NUM: PIC  X(6). 

120:  02:FUNC-AREA:PIC  X. 

130:  02 : ERROR -CAT. 

140:  03: MAJOR-CAT: PIC  X. 

150:  03:MINOR-CAT: PIC  XXX. 

160:  02: ERROR -DESC : PIC  X(50). 

170:  02:SSYS-ID. 

180:  03: SYS-ID: PIC  X. 

190:  03: SYS-VERSION : PIC  XX. 

200:  02: PHASE: PIC  X. 

201:  02: FILLER  PIC  X(5). 

210:98: SYSTEM  DETAIL; SCAN  ON  SMN-NUM. 


APPLICATION  DEFINITION 
"LIST  ADSAPS1 

010  DATA-BASE  IS  DBRAPS 1 IN  BFCBMIS 1 /DIOAPS 1 
020  ENTRY  PROBLEM-REPORT  IS  RECORD  PROBLEM-REPORT 


Figure  A-6:  Project  Four  Definitions 
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DIRECTORY  DEFINITION 
:{U.IST  D I SSAFS 1 

0010  DATA-BASE-REFERENCE  IS  DBRSAF61 
0020  SEQUENTIAL-DATA-BASE  IS  3FCBMIS 1 /DBNSAFS 1 
0030  DEFINITION-SOURCE-FILE  IS  BFCBMIS1/DDSSAFS1 
0040  DEFINITION-OBJECT-FILE  IS  BFCBMIS 1/DDOSAFS 1 
0050  END  DBRSAFS 1 

0060  DATA-BASE-REFERENCF.  IS  DBRSAFSN 
0070  SEQUENTIAL-DATA-BASE  IS  BFCBMIS 1/DBNSAFSN 
0080  DEFINITION-SOURCE-FILE  IS  BFCBMIS 1/DDSSAFSN 
0090  DEFINITION-OBJECT-FILE  IS  BFCBMIS 1/DDOSAFSN 
0100  END  DBRSAFSN 

DATA  DEFINITION 

"LIST  DDSSAFS1 

0120:MD  DBRSAFS 1; FILE  IS  SEQUENTIAL.  . 

0130:01  PROBLEM-REPORT {RETRIEVAL  VIA  SCAN.  C 

0140:  02  SPR-NUM  PIC  X(7). 

0150:  02  FILLER  PIC  X. 

0160:  02  DATE-OPEN. 

0170:  03  MO-OPEN  PIC  99. 

0180:  03  FILLER  PIC  X. 

0190:  03  DA-OPEN  PIC  99. 

0200:  03  FILLER  PIC  X. 

0210:  03  YR-OPEN  PIC  99. 

0220:  02  DATE-CLOSE. 

0230:  03  MO-CLOSE  PIC  99. 

0240:  03  FILLER  PIC  X. 

0250:  03  DA-CLOSE  PIC  99. 

0260:  03  FILLER  PIC  X. 

0270:  03  YR-CLOSE  PIC  99. 

0280:  02  PHASE  PIC  X(12). 

0290:  02  FILLER  PIC  XXX. 

0300:  02  MOD-CHANCED. 

0305:  03  SSYS-ID  PIC  X. 

0306:  03  SSYS-VERSION  PIC  X(7). 

0310:  02  COR-TYPE  PIC  X(13). 

0320:  02  FILLER  PIC  XX. 

0330:  02  ERROR-CAT. 

0340:  03  MAJOR-CAT  PIC  XX. 

0350:  03  MINOR-CAT  PIC  XXX. 

0351:  02: FILLER  PIC  X(17). 

0360:98  SYSTEM  DETAIL;  SCAN  ON  MOD-CHANGED. 

APPLICATION  DEFINITION 
"LIST  ADSSAFS1 

0490  DATA-BASE  IS  DBRSAFS 1 IN  BFCBMIS 1/DIOSAFS 1 
j 0500ENTRY  PROBLEM-REPORT  IS  RECORD  PROBLEM-REPORT 

j 0510  DATA-BASE  IS  DBRSAFSN  IN  BFCBMIS 1/DIOSAFS 1 

0530  ENTRY  MODULE  IS  RECORD  MODULE 


Figure  A-7:  Project  Five  Definitions 
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5{L  I ST  DDSSAFSN 

0380:MD  DBRSAFSN {FILE  IS  SEQUENTIAL. 

0390:01  MODULE {RETRIEVAL  VIA  SCAN. 

0410:  02  MOD-ID.  Ki 

0411:  03  SSYS-ID  PIC  X. 

0412:  03  SSYS-VERSION  PIC  X(7).  fcj 

0430:  02  NUM-OCCUR  PIC  9(6). 

0450:  02  CONST-TYPE  PIC  X(7). 

0470:  02  TECH-ID  PIC  X(12). 

0480: 98: SYSTEM  DETAIL {SCAN  ON  MOD-ID. 


I 


DIRECTORY  DEFINITION 

!:LI  ST  DISSMTC 

00 10  DATA-BASE-REFERENCE  IS  DBRSMTC 

0020  SEQUENTIAL-DATA-BASE  IS  BFCBMIS I /DBNSHTC 

0030  ON  TAPE  44916 

0040  DEFINITION-SOURCE-FILE  IS  BFCBMIS  l/l)l)SSMTC 
0050  DEFINITION -OBJECT-FILE  IS  BFCBMIS I /DDOSMTC 
0060  USER-SUBROUTINE-LIBRARY  IS  BFCBMIS I /TLUSMTC 
0070  END  DBRSMTC 


DATA  DEFINITION 

"LIST  DDSSMTC 

0090 :MD  DBRSMTC ;FILE  IS  SEQUENTIAL. 

0100:01  PROBLEM-REFORT ; R ETR I E VAL  VIA  SCAN. 

01 10:02:SSYS-ID  PIC  XXX. 

0120: 02:MOD-ID  PIC  X(16). 

01 30: 02: DATE-RUN. 

0140: 03:MO-RUN  PIC  XX. 

01 50: 03: DAY-RUN  PIC  XX. 

0160:03:YR-RUN  PIC  X. 

0165:02:TME  PIC  X(4). 

0170:02:  STRESS-flEAS  PIC  X(6). 

0180: 02: TEST -RESULT  PIC  X. 

0190:02:WORK-CAT  PIC  X. 

0200: 02:TEST-PER  PIC  X. 

0210: 02: ACT-CAT  PIC  X. 

0220: 02 :NUM-C HANGED  PIC  X. 

0230: 02: SEVERITY  PIC  X. 

0240: 02: ERROR-CAT. 

0250:03:MAJOR-CAT  PIC  X. 

0260: 03:MINOR-CAT  PIC  X. 

02  70:02: NUM-ERR  PIC  9. 

0280: 02: FILLER  PIC  X(5). 

02 90:9fi; SYSTEM  DETAIL; SC AN  ON  SEVERITY. 

APPLICATION  DEFINITION 
“LIST  ADSSMTC 

0110  OATA-BASE  IS  DBRSMTC  IN  BFCBMIS 1/DIOSMTC 
0130  ENTRY  PROBLEM-REPORT  IS  RECORD  PROBLEM-REPORT 


I 


f.! 


Figure  A- 8 : Project  Six  Definitions 
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5 . 5 A Decoding  Subroutine  Example 

MDQS  allows  the  user  to  write  subroutines  in  COBOL,  FORTRAN 
or  GMAP  that  can  be  called  in  an  MDQS  procedure.  The  following 
is  an  example  of  a COBOL  subroutine  used  to  decode  values  in  a 
dataset  for  output. 


0030  $ : COBOL : l.S'i0U  , ON  6 , NCOMDK , NDEC  K 0290: 

0040: IDENTIFICATION  DIVISION.  0300: 

0050: PROGRAM-ID.  C0DE-ANS.  0310: 

0060: AUTHOR.  CC.  0320: 

00 70: DATE-WRITTEN.  0330: 

0080: REMARKS.  SUBROUTINE  TEST.  0340: 

0090: ENVIRONMENT  DIVISION.  0350: 

0100: SOURCE-COMPUTER.  0360: 

01 10: OBJECT-COMPUTER.  0370: 

0120: DATA  DIVISION.  0380: 

01 30: WORKING-STORAGE  SECTION.  0390: 

0140:77  IN-CODE  PIC  X.  0400: 

0150:77  IN-SCHAR  PIC  9(6)  C0MP-1.  0420: 

0160:77  IN-NCHAR  PIC  9(6)  COMP-1.  0430: 

0170:77  OUT-VAL  PIC  X(7).  0440: 

0180:77  0UT-SP0S  PIC  9(6)  COMP-l.  0450: 

0190:77  OUT -STATUS  PIC  9(6)  VALUE  0.  0460: 

0200:77  IN-DESC  PIC  9(6).  0470: 

0210:01  COMPLEX-TABLE.  0480: 

0220:: 02  COMPLEX-DATA.  0500: 

0230::  03  CODE-01  PIC  X VALUE  "S".  0510$ 

0240::  03  VAL-01  PIC  X(7)  VALUE  "SIMPLE  ". 

0250::  03  CODE-02  PIC  X VALUE  "M". 

0260::  03  VAL-2  PIC  X(7)  VALUE  "MEDIUM  ". 

0270::  03  CODE-03  PIC  X VALUE  "C". 

0280::  03  VAL-03  PIC  X(7)  VALUE  "COMPLEX". 


0200:77 

0210:01 


0240:: 
0250: : 
0260:: 
0270:: 
0280: : 


: 02  COMPLEX-VAL  REDEFINES  COMPLEX-DATA 
: OCCURS  3 TIMES  INDEXED  BY  II. 

: 03  CODE  PIC  X. 

: 03  VAL  PIC  X(7) . 

PROCEDURE  DIVISION. 

START. 

'.ENTER  LINKAGE  MODE. 

: ENTRY  POINT  IS  VALUES 
: USING  IN-CODE .IN-SCHAR, IN-NCHAR 
: GIVING  OUT-VAL .OUT -SPOS , OUT-STATUS . 

: ENTER  COBOL. 

: SET  II  TO  1. 

: SEARCH  COMPLEX-VAL  VARYING  II 
: WHEN  IN-CODE  EQUALS  CODE  (II) 

: :M0VE  VAL  (II)  TO  OUT-VAL  AND 
::GO  TO  RET-ARGS. 

: MOVE  "BAD  COD"  TO  OUT-VAL. 

: RET-ARGS. 

: EXIT  VALUES. 

:END  PROGRAM. 

; END  JOB 


This  subroutine  must  be  compiled  with  the  indicated  options. 
The  resulting  compiler  output  is  then  used  to  create  the  linkage 
to  MDQS.  This  is  done  interactively  in  the  Perform  Subsystem. 

For  a detailed  description  see  DD92 , Appendix  C. 
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The  output  of  this  interactive  process  is  as  follows. 

•♦  RELE  VALUES-C 

FILE  RELEASED-VALUES-C 

♦LIST  TESTLIB 

O/B-READ  LINKED  FILES  ONLY  WITH  THIS  COMMAND 

SYSTEM  ?CARD  NEW 

READY 

.♦LIST  JLIBSDSI 


I0S 

I DENT 

20$ 

FILED IT 

30$ 

FILE 

4 0$ 

FILE 

50$ 

DATA 

60$ 

INCLUDE 

70$ 

SYSLD 

80$ 

OPTION 

90$ 

LOWLOAD 

J00$ 

GMAP 

1 10 

SYMDEF 

120 

LBL 

1 30 

TIL 

1 40 

ERLK 

150 

ORG  ♦— 2 

1 (■  OVALUES 

NULL 

1 /OF 

B(X)L  1 

I8CS 

BOOL  0 

1 90 

TTLS 

2 CO 

REM 

210 

BCI 

220 

BCI 

230 

VFD 

2 40 

VFD 

250 

VFD 

260 

OCT 

2 70 

END 

28C$ 

EXECUTE 

290$ 

ENDLD 

300$ 

SYSLD 

310$ 

OPTION 

320$ 

LOWLOAD 

33CS 

S ELECTA 

340S 

EXECUTE 

350$ 

ENLLD 

360S 

ENDED  IT 

370$ 

ENDCOPY 

380$ 

SYS EDIT 

390$ 

FILE 

400$ 

PRMFL 

4 10$ 

ENDJOB 

I3FCBMI5I ,C  CURTIS, 555008570052 

INITIALIZE, SOURCE. OBJECT 

K* . A I R , I0L 

R* , A2C, I OL 

♦C. .COPY 

SOURCE 

CATALOG-DMSCTI .RELOC, MASTER 
NOSETU.NOFCB 

COMDK 

VALUES 

VALUES 

CATALOG-VALUES 


CODE-ANS 

5.CODE-ANS 
I .VALUES 

I/O, 17/4056,018/22 

I /.I  , I/S,  I/O,  I/O.  12/01.2/6,12/0001 .6/000 
I/I , I/S. I/I ,1/1 , 12/01,2/6, 12/0007.6/000 
555555555555 


CATALOG-VALUES. RELOC, MASTER 
NOSETU.NOFCB 

BFCBMIS l/COMPLE 


INITIALIZE 
R* , A2  R . I OL 

0*,W.R,  BFCBMIS  I /USLSDS.I 


When  the  previous  job  is  run  successfully,  the  linkage  is 
established  and  the  user  can  then  reference  the  program  in  the 
manner  indicated  in  Section  4.3  of  this  report. 
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5 . 6 Database  Restructuring 


MDQS  has  the  capability  to  allow  the  database  Administrator 
to  restructure  the  database;  i.e.,  modify,  rearrange,  add  or 
delete  certain  elements  of  the  data. 

The  task  is  accomplished  in  three  phases.  They  are: 

1.  Data  Definition  Restructure 

2.  COBOL  Translation 

3.  Data  Restructuring 

Phase  1.  Data  Definition  Restructure.  The  Project  5 module  data 
was  chosen  to  demonstrate  this  function  due  to  the  fact  that  it 
contains  many  unused  character  positions,*  thus  wasting  permfile 
space.  A new  data  definition  was  written  eliminating  the  filler. 

0380:MD  DBRSAFSN ;FILE  IS  SEQUENTIAL. 

0390:01  MODULE ; k. ETR I K VAI,  VIA  SCAN. 

0410:  02  MOD-ID. 

0411:  03  SSYS-ID  PIC  X. 

0412:  03  SSYS-VERSION  PIC  X(7). 

0430:  02  NUM-OCCUR  PIC  9(6). 

0450:  02  CONST-TYPE  PIC  X(7). 

0470:  02  TECH-ID  PIC  X(12). 

0480: 98: SYSTEM  DETAIL ;SCAN  ON  HOD-ID. 

READY 

This  was  translated  in  the  manner  previously  described  in  Step 
4 of  this  appendix  yielding  the  usual  object  module. 

A sequential  permfile  was  then  created  using  access  to  contain 
the  new  database.  A catalogue  of  its  current  attributes  follows. 

FILfc  name-obnsapsn 

ORIGINATOR-HFCA1IS 1 
DATE  CRKATED-1 10277 
DATE  CHANGED-1 10277(11. 400 ) 

LAST  OAT?  ACCESS ED-0 105 78 
NUMBER  OF  ACCESSES-9 
MAX  FILE  SIZE-61  LLINKS 
CURRENT  FILE  SIZE-61  LLINKS 
FILE  TYPE-LINKED 
DEVICE-DP3 

GENERAL  PERMISSIONS-R, E 
SPECIFIC  PERMISSI0NS-N0NE 


*This  is  the  result  of  the  Multics  to  GC0S  transfer  constraints. 
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Phase  2.  COBOL  Translation.  The  Perform  Subsystem  was  used  to 

fenerate  the  JCL  necessary  for  the  COBOL  translation.  See  Section 
of  DD94,  Revision  1,  for  details.  The  following  job  stream 
resulted. 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


IDENT  BFCBMIS  1,C  CURTIS, 555008570052 

PROGRAM  REST 

LIMITS  ,28K 

DATA  FI,, COPY 

SELECTA  BFCBMIS 1/DDSSAFS2 

ENDCOPY 

DATA  F2, .COPY 

SELECTA  BFCBMIS I /DDSSAFSN 

ENDCOPY 

FILE  F3.X1C.30L 
COBOL  NLSTOU.NDECK 
FILE  S*,X1R, 30L 
EXECUTE  DUMP 
LIMITS  , 32K 

PRMFL  F4,R,S, BFCBMIS 1/DBNSAFS 2 
PRMFL  F 5, R/W,S, BFCBMIS 1/DBNSAFSH 
ENDJOB 


Phase  3.  Data  Restructuring.  The  execution  of  the  above  JCL 
caused  the  actual  Data  Restructuring  to  take  place.  The  Directory 
Definition  and  Application  Definition  were  updated  to  reflect  the 
new  database.  Its  name  was  changed  from  DBNSAFS2  to  DBNSAFSN 
and  the  new  Data  Definition  files  to  DDSSAFSN,  DDOSAFSN.  These 
new  files  are  listed  below. 


0010  DATA-BASE-REFERENCE  IS  DBRSAFS 1 
0020  SEQUENTIAL-DATA-BASE  IS  BFCBMI S 1 / DBNSAFS 1 
0030  DEFINITION-SOURCE-FILE  IS  BFCBMIS1/DDSSAFS1 
0040  DEFINITION-OBJECT-FILE  IS  BFCBMIS1/DDOSAFS1 
0050  END  DBRSAFS 1 

0060  DATA-BASE-REFERENCE  IS  DBRSAFSN 
0070  SEQUENTIAL-DATA-BASE  IS  BFCBM I S 1 /DBNSAFSN 
0080  DEFINITION-SOURCE-FILE  IS  BFCBMIS 1/DDSSAFSN 
0090  DEFINITION-OBJECT-FILE  IS  BFCBMI S 1 /DDOSAFSN 
0100  END  DBRSAFSN 


READY 

0490  DATA-BASE  IS  DBRSAFS 1 IN  BFCBM I SI /DI OSAFS 1 
0 50 0ENTRY  PROBLEM-REPORT  IS  RECORD  PROBLEM-REPORT 
0510  DATA-BASE  IS  DBRSAFSN  IN  BFCBM I S 1/ D IOSAFS 1 
0530  ENTRY  MODULE  IS  RECORD  MODULE 

READY 

This  database  restructuring  resulted  in  a permfile  savings  of 
approximately  90  little  links. 
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5 . 7 Privacy  Subsystem 


The  Privacy  Subsystem  provides  protection  from  MDQS  procedures 
accessing  elements  of  data  that  have  been  specified  as  locked. 

The  Privacy  Subsystem  is  used  to  verify  that  a particular  USERID 
has  permission  to  obtain  the  locked  portion  of  data.  The  Privacy 
Subsystem  compares  the  locks  and  keys  and  if  a match  is  found 
permission  is  granted  to  the  procedure.  If  a match  is  not  found  a 
Privacy  Breach  is  returned. 

To  enable  the  Privacy  Subsystem  the  database  administrator 

must: 


1.  Assign  the  locks  and  keys 

2.  Build  and  maintain  the  Privacy  File 

To  demonstrate  this  capability,  a lock  (named  LCKl)  was 
placed  on  the  hardware  records  in  the  Project  2 data.  The  lock 
on  the  da.ta  is  set  in  the  data  definition  as  follows  (only  the 
hardware  record,  the  portion  changed,  is  shown). 

0480:01  HARDWARE; TYPE  IS  "3"  IN  HARD-CHAR 
0490  : : RETRIEVAL  VIA  SCAN; 

0495:  :PRIVACY  LOCK  FOR  READ, WRITE  IS  "LCKl". 

0500:  0 2 : HARD-CHAR : P I C X. 

0510:  02:FILLER:PIC  X. 

0520:  02 : COMP- ID: PIC  X(13). 

0530:  0 2 : F I LLER : PIC  X. 

0540  : 02  :COMP-RATE : PIC  X(7). 

0550:  0 2 : F I LLER : P I C X(4). 

0560:  0 2 : COMP-OS : P I C X(13). 

0561  : 02  : F I LLER  PIC  X(44). 

0565  :98 :SYSTEM  DETAIL ; SCAN  ON  HARD-CHAR. 

The  Directory  Definition  must  be  updated  to  reflect  the  Privacy 
file  which  will  be  created. 

10  DATA-BASE-REFERENCE  IS  DBRB1S1 
20  SEQUENTIAL-DATA-BASE  IS  BFCBMIS1/DBNB1S1 
30  DEFINITION-SOURCE-FILE  IS  BFCBM I S 1 / DDSB IS  1 
40  DEFINITION  ^-OBJECT-FILE  IS  BFCBM  I S 1 /DDOB  IS  1 
50  USER-SUBROUTINE-LIBRARY  IS  BFCBM I S 1 /ULSB 1 S 1 
55  PRIVACY-FILE  IS  BFCBM  I S 1 / PR  I VACY 
60  END  DBRB1S1 

The  Application  Definition  needs  no  source  changes.  The 
three  files  DISB1S1,  DDSB1S1,  and  ADSB1S1  are  then  retranslated 
as  in  Step  4 of  this  appendix. 
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The  Privacy  file  is  created  using  Access.  It  must  be  random, 
have  at  least  three  little  links  of  space  and  have  general  read 
permission  granted.  A catalogue  of  this  file  follows. 


u 


FILE  NAME-PRIVACY 

OR IG I NAT  OR-BFCBM I S 1 

DATE  CREATED- 111577 

DATE  CHANGED- 111577(10 .435) 

LAST  DATE  ACCESSED- 1 1 1677 
NUMBER  OF  ACCESSES-6 
MAX  FILE  SIZE-10  LLINKS 

CURRENT  FILE  SIZE-10  LLINKS  ! 

FILE  TYPE-RANDOM 
DEV  I CE-DP4 

GENERAL  PERM  I SS IONS -4, 3 

SPECIFIC  PERM  I SS IONS- NONE  f 

The  data  is  entered  into  the  Privacy  file  by  the  interactive 
use  of  the  MDQS  PR IV  command  as  illustrated  below.  ™ 

"PR  I V 

PRIVACY  FILE  ? BFCBMIS 1/ PRIVACY 
USERIDS  - BFCBMIS1 
ROSTERS  FOR  bfcbmisl  - ROST  1 
KEYS  FOR  rostl  - LCK1 

FUNCTION  - DONE 

The  following  is  an  example  of  accessing  this  data  using 
Conversational  MDQS. 


"CMDQ 

APPLICATION  FILE  IS  - ADOB1S1 

DATABASE  REFERENCE  IS  DBRB1S1 

FUNCTION  - BROW 

ENTRY  IS  -HARDWARE 

DATA  ITEMS  TO  BE  DISPLAYED  - ALL 

DISPLAY  EVEN  IF  BLANK  OR  ZERO  ? YES 

PAUSE  BETWEEN  ENTRY  INSTANCES  ? 

DATA  ITEMS  TO  BE  SUMMED  OR  COUNTED  - 
SELECTION  CRITERIA  - 
LIMIT  ft  SETS  OF  DATA  TO  - 
SEQUENCE  DATA  ON  - 


(continued) 
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RUN-ID?  CC 

$ IDENT?  BFCBMIS1,C  CURT  I S , 5 5 5008 5 70 0 52 
SNUMB  2159T 

2159T 

HARD-CHAR=  3 
COMP- I D=  SKC20  7 0 
COMP-RATE=  500KOPS 
COMP-OS=  NOT  APPLICABL 

HARD-CHAR=  3 
COMP- I D=  HARRIS  6024/5 
COMP-RATE=  500KOPS 
COMP-OS=  NOT  APPLICABL 

ACTIVITY  TERMINATED 

FUNCTION  - DONE 

Note  that  the  initial  attempt  to  access  this  data  was  unsuccessful 
and  resulted  in  an  I/O  Busy  Error  on  the  Privacy  file.  It  was 
necessary  for  the  facility  personnel  to  "unbusy"  the  file  before 
successful  access  could  be  accomplished. 
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APPENDIX  B 


SUMMARY  DATABASE 


This  appendix  contains  a description  of  the  Summary  Database 
that  was  generated  from  the  Historical  Database  and  data  contained 
in  the  final  reports  for  the  six  datasets.  This  Summary  Database 
was  designed  so  that  queries  could  be  formulated  across  projects. 
Data  summary  forms  were  designed  and  used  to  record  project 
descriptive  information  and  to  specify  summarization  requirements. 

Included  in  Appendix  B is  a discussion  of  each  Data  Summary 
Form,  the  MDQS  Definitions  for  defining  the  database,  and  sample 
queries . 

6.1  Data  Summarization 


Data  summary  forms  were  developed  to  record  information  from 
the  technical  reports  for  the  six  datasets  in  the  Historical 
Database  and  to  provide  summarization  requirements  to  convert  the 
data  from  the  datasets  into  the  format  required  for  the  Summary 
Database.  Each  form  contains  eight  fields  that  provide  a basis 
for  defining  a unique  key  for  each  record  occurrence  within  the 
Summary  Database.  This  key  identifies  the  applicable  project, 
system,  functional  group,  and  module  that  applies  to  the  component 
information  recorded.  Also  included  in  this  key  is  information 
concerning  the  level  of  summarization  and  the  record  type  which 
indicates  the  format  of  the  data. 

In  addition  to  the  key  data,  the  following  information  is 
recorded  on  each  form. 

Component  (see  Figure  B-l).  Component  name,  type,  and 
description;  developer,  contract  number,  and  data  source;  the 
number  of  systems,  functional  groups  and  modules;  contract  type 
and  standards  applied;  the  purpose  of  the  data  collection  and  the 
procedures  used;  the  priorities  and  constraints  of  the  product 
development . 

Technology  (see  Figure  B-2).  The  phase,  reporting  level  and 
the  applicable  dates ; the  technology  utilized,  the  name  of  the 
tool  used,  and  the  percentage  of  usage. 

Instructions  (see  Figure  B-3).  The  phase,  reporting  level 
and  the  applicable  dates;  the  programming  language  used;  the 
number  of  source  instructions,  object  words,  and  percent  of  usage; 
complexity  type  and  measure;  and  the  mode  of  construction. 


DATA  SUMMARY  FORM  I - TECHNOLOGY 


Figure  B-2:  Technology  Data  Summary  Form 


DATA  St##«A RY  FORM  I - INSTRUCTIONS 


Figure  B-3:  Instructions  Data  Summary  Form 


Errors  (see  Figure  B-4)  . The  test  period,  reporting  level 
and  the  applicable  dates;  the  error  category  type,  the  error 
category , and  the  number  of  errors . 

Corrections  (see  Figure  B-5) . The  test  period,  reporting  level 
and  the  applicable  dates;  the  correction  type,  the  average  number 
of  days  open,  and  the  number  of  errors. 

Component -Module  (see  Figure  B-6).  This  form  is  used  to 
establish  the  key  in  a concise  manner  for  any  of  the  record  types. 

3 . 2 MDQS  Definitions 

Figure  B-7  illustrates  the  entries  within  the  Summary  Data- 
base and  contains  the  entry  name,  the  record  type  designator 
(010-090)  and  the  name  of  the  MDQS  chain.  This  database  was  defined 
using  the  MDQS  Directory,  Data  and  Application  Definition  Languages 
as  an  Index-Sequential  File  (see  Figure  B-8). 

Illustrated  below  is  the  MDQS  Procedure  Language  results  for 
querying  the  Summary  Database  at  the  component  level  and  printing 
six  fields  of  this  entry. 


010  INVOKE  ADOSUM 

020  RETRIEVE  COMPONENT  FROM  DBRSUM 

030  WHERE  SUM-LEVEL  EQ  “PM 

040  PRINT  ON  FILE  SUMOUT 

050  PRO JECT-I D, COMP-TYPE , NUM-SYS , NUM-FC . NUM-MOD 
055  .STANDARDS 
060  END 


PROJECT-ID 

COMP-TYPE 

NUM-SYS 

NUM-FC 

NUM-MOD 

STANDARDS 

P00501 

013 

8 

25 

249 

6147 

P00502 

003 

2 

7 

69 

P00503 

014 

1 

1 

109 

P00504 

015 

16 

0 

0 

P00505 

014 

0 

0 

2413 

P00506 

016 

2 

45 

0 

483M0D 

A sequential  transaction  database  using  the  same  entries  and 
data  names  as  in  the  Index-sequential  Summary  Database  was  defined 
using  the  MDQS  Languages.  Below  is  an  illustration  of  a query 
that  retrieves  and  prints  data  from  the  COMPONENT,  INSTRUCTIONS, 
ERRORS,  and  CORRECTIONS  entities. 

0010  INVOKE  ADOTRAN 

0020  REPORT  A ON  FILE  INST-ERR 

0030PAGE  HEADING  IS  HD1. 


(continued) 


0040  HD1.  LINE  "MOD  ID"  COL  1, 

0050  "INSTR  TYPE"  COL  10,  "#  SOURCE”  COL  20, 

0060  "#  ERRORS"  COL  29, "ERR  CAT"  COL  40, 

0065  "ICORRECTIONS"  COL  50 

0070P1.  LINE  MOD-ID  COL  1 GROUP  INDICATE  1, 

0080  INST-TYPE  COL  12,  NUM-INST-S  COL  20 

0090  P2.  LINE  NUM-EKRORS  COL  30,  MAJOR-CAT  COL  43 

0100  P3.  LINE  NUM-COR  COL  53 

0110  LI.  RETRIEVE  COMPONENT  WHERE  PRO JECT-ll)  EQ  "P00502" 
0120  AND  SUM-LEVEL  EQ  "M" 

0130  WHEN  LI. 

0140  RETRIEVE  INSTRUCTIONS 

0150  PRINT  PI. 

0160  WHEN  LI. 

0170  RETRIEVE  ERRORS  WHERE  MINOR-CAT  EQ  "TOT" 

0190  PRINT  P2. 

020Q  WHEN  LI. 

0210  RETRIEVE  CORRECTIONS  WHERE  COK-TYPK  EQ  "T" 

0220  PRINT  P3. 

0230END 


MOD  ID  INSTR  TYPE#  SOURCE  # ERRORS  ERR  CAT 
AAI  ASSM  2282 

2  BB 
4 DD 
1 KK 
1 RR 


AI 


ASSM  2830 

JOVL  7223 

1 

44 

3 

20 

4 
4 
1 
.1 

3 
18 

4 
2 
7 
1 
3 


AA 

BB 

CC 

DD 

FF 

GG 

JJ 

KK 

LL 

MM 

NN 

PP 

RR 

SS 

TT 


AM 


JOVL  6897 

ASSM  600 

6 

77 

36 

1 

7 


AA 

BB 

DD 

FF 

GG 


ICORRECTIONS 


8 


116 
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INSTRUCTIONS 


DATA  $U*<ARY  FORM  - CORRECTIONS 


DATA  SUMMARY  FORM  I - COMPONENT  - MODULE  SUH4ARY 


Component-Module  Data  Summary  Form 


"LIST  DISSUM 


■ 

I 


1130  D ATA-B AS E-R F.F ER  ENC  S IS  DBRSUM 

1140  ISP-DATA-BASE  IS  BFCBMIS 1/DBNSUM 

1150  DEFINITION-SOURCE-FILE  IS  BFCBMIS 1/DDSSUM 

1160  DEFINITION-OBJECT-FILE  IS  BFCBMIS l /DDOSUK 

1170  ISP-INDEX-FILE  IS  BFCBMIS l/INDSUM 

1180  USER-SUBROUTINE-LIBRARY  IS  BFCBMIS l/USLHIST 

1190  END  DBRSUM 

1200  DATA-BASE-REFERENCE  TS  DBRTRAN 
1210  SEQUENTIAL-DATA-BASE  IS  BFCBMIS 1 /DBNTRAN 
1220  DEFINITION-SOURCE-FILE  IS  BFCBMIS 1/DDSTRAN 
1230  DEFINITION-OBJECT-FILE  BFCBMIS 1/DDOTRAN 
1240  TRANSACTION-REJECT-FILE  IS  BFCBMIS 1/TRAN-REJ 
1250  END  DBRTRAN 

1260  DATA-BASE-REFERENCE  IS  DBKHTRI 

1270  ISP-DATA-BASE  IS  BFCBMIS 1/DBNHTRI 

1280  DEFINITION-SOURCE-FILE  IS  BFCBMIS 1/DDSHTRI 

1290  DEFINITION-OBJECT-FILE  IS  BFCBMIS 1/DDOHTRI 

1300  ISP-INDEX-FILE  IS  BFCBMIS 1/INDHTRI 

1310  TRANSACTION-REJECT-FILE  IS  BFCBMIS 1 /TRJHTRI 

1320  END  DBRHTRI 

1330  DATA-BASE -REFERENCE  IS  DBRHTRS 
1340  SEQUENTIAL-DATA-BASE  IS  BFCBMIS 1 /DBNHTRS 
1350  DEFINITION-SOURCE-FILE  IS  BFCBMIS 1/DDSHTRS 
1360  DEFINITION-OBJECT-FILE  IS  BFCBMIS 1/DDOHTRS 
1370  TRANSACTION -REJECT-FILE  IS  BFCBMIS 1/TRJHTRS 
1380  END  DBRHTRS 


"LIST  ADSSUM 

010  DATA-BASE  IS  DBRSUM  IN  BFCBMIS 1/DIOSUM 

020  ENTRY  COMPONENT  IS  RECORD  COMPONENT  VIA  SEARCH 

030  ENTRY  ERRORS  IS  RECORD  ERRORS  THRU  COMPONENT 

040  ENTRY  CORRECTIONS  IS  RECORD  CORRECTIONS  THRU  COMPONENT 

050  ENTRY  INSTRUCTIONS  IS  RECORD  INSTRUCTIONS  THRU  COMPONENT 


Figure  B-8: 
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"LIST  DDSSUM 

10:MD  DBRSUM;FILE  IS  INDEXED-SEQUENTIAL. 
20:01  COMPONENT;  TYPE  IS  "010"  IN  TYPE-010; 
30:  RETRIEVAL  VIA  SEARCH. 

40:  02  COMP-REC-ID. 

50:  03  COMP-ID. 

60: :04  PROJECT-ID  PIC  X(6). 

70: :04  SYS-ID  PIC  X(4). 

80 : : 04  FUNC-ID  PIC  X(5). 

90:: 04  MOD-ID  PIC  X(9). 

100:  03  COMP-SUM-ID. 

110: :04  SUM-LEVEL  PIC  X. 

120:: 04  VERS-ID  PIC  X(7). 

130:: 04  TYPE-010  PIC  9(3). 

140: :04  NUM-010  PIC  9(3). 

150:02  NAME  PIC  X(12). 

160:02  COMP-TYPE  PIC  X(3). 

170:02  DESC  PIC  X(28). 

180:02  DEVELOPER  PIC  X(ll). 

190:02  CONT— NUM  PIC  X(24). 

200:02  DATA-DATE-I. 

210:  03  MO-DA-I  PIC  99. 

220:  03  DA-DA-I  PIC  99. 

230:  03  YR-DA-I  PIC  99. 

240:02  DATA-DATE-C. 

250:  03  MO-DA-C  PIC  99. 

260:  03  DA-DA-C  PIC  99. 

270:  03  YR-DA-C  PIC  99. 

280:02  DATA-SRC  PIC  XX. 

290:02  NUM-SYS  PIC  9(4). 

300:02  NUM-FG  PIC  9(4). 

310:02  NUM-MOD  PIC  9(4). 

320:02  CONTRACT-TYPE  PIC  X(20). 

330:02  STANDARDS  PIC  X(20). 

340:02  COLL-PUR  PIC  X(10). 

350:02  COLL-PROC  PIC  X(10). 

360:02  PRIORITIES  PIC  X(10). 

365:02  CONSTRAINTS  PIC  X(20). 

370:02  DOC-ACC  PIC  X(25). 

380:98  INDEX  DETAIL ; SEARCH  ON  COMP-REC-ID. 
390:98  COMP-TECH  MASTER ;ORDER  IS  SORTED. 
400:98  COMP— INST  MASTER; ORDER  IS  SORTED. 
410:98  COMP-CHAR  MASTER ; ORDER  IS  SORTED. 
420:98  COMP-ERR  MASTER; ORDER  IS  SORTED. 
430:98  COMP-COR  MASTER ;ORDER  IS  SORTED. 
440:98  COMP-TEST  MASTER;  ORDER  IS  SORTED. 
450:98  COMP-KES  MASTER;  ORDER  IS  SORTED. 
460:98  COMP-DOC  MASTER ;ORDER  IS  SORTED. 
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470:01  ERRORS ;TYPK  IS  "050"  IN  TYPE-050; 

480:  RETRIEVAL  VIA  COMP-ERR. 

490:02  ERR-REC-ID. 

500:  03  ERR-ID. 

510: :04  ERR-PID  PIC  X(6). 

520:: 04  ERR-SID  PIC  X(4). 

530:: 04  ERR-FID  PIC  X(5). 

540: :04  ERR -MID  PIC  X(9). 

550:  03  ERR-SUM-ID. 

560: :04  ERR-SUM  PIC  X. 

570:: 04  ERR-VID  PIC  X(7). 

580: :04  TYPE-050  PIC  9(3). 

590: :04  NUM-050  PIC  9(3). 

600:02  TEST-PER-E  PIC  XX. 

610:02  REP-LEVEL-/;  PTC  XX. 

620:02  CALEN-PER-E. 

630:  03  BEGIN-DATE-E. 

640:: 04  MO-BEG-E  PIC  99. 

650:: 04  DA-BEG-E  PIC  99. 

660:: 04  YR-BEG-E  PIC  99. 

670:  03  END-DATE-E. 

680:: 04  MO-END-E  PIC  90. 

690:: 04  DA-END-E  PIC  99. 

700:: 04  YR-END-E  PIC  99. 

710:02  ERR-CAT-TYPE  PIC  X(3). 

720:02  ERROR-CAT. 

730:  03  MAJOR-CAT  PIC  XX. 

740:  03  MINOR-CAT  PIC  X(3). 

750:02  MOM-ERRORS  PIC  9(5). 

760:98  COMP-ERR  DETAIL; 

770  : ASCENDING  KEY  IS  ERR-REC-ID. 

780:01  CORRECTIONS ;TYPE  IS  "060"  IN  TYPE-060; 
790:  RETRIEVAL  VIA  COMP-COR. 

800:02  COR -R EC -ID . 

810:  03  COR-ID • 

820: :04  COR-PID  PIC  X(6). 

830: :04  COR-SID  PIC  X(4). 

840: :04  COR-FID  PIC  X(5). 

850: :04  COR-MID  PIC  X(9). 

860:  03  COR -SUM— ID . 

870:: 04  COR-SUM  PIC  X. 

880: :04  COR-VID  PIC  X(7). 

890:: 04  TYPE-060  PIC  9(3). 

900:: 04  NUM-060  PIC  9(3). 

910:02  TEST-PKR-C  PIC  XX. 

920:02  REPj&EVEL-C  PIC  XX. 

930:02  CALEN-PER-C. 
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940:  03  BEGIN-DATE-C. 

950: :04  MO-BEG-C  PIC  99. 

960:: 04  DA-BEG-C  PIC  99. 

970: :04  YR-BEG-C  PIC  99. 

980:  03  END-PAT B-C. 

990:: 04  MO-END-C  PIC  99. 

1000:: 04  DA-END-C  PIC  99. 

1010: :04  YR-END-C  PIC  99. 

1020:02  COR-TYPE  PIC  X(9). 

1030:02  DAYS-OPEN-AV-C  PIC  9(3). 

1040:02  HHRS-TO-FIX-AV  PIC  9(5). 

1050:02  NUM-COR  PIC  9(5). 

1060:98  COMP-COR  DETAIL; 

1070:  ASCENDING  KEY  IS  COR-REC-*- . 

1080:01  TECHNOLOGY  ;TYPE  IS  "020"  IN  TYPE-020; 

1090:  RETRIEVAL  VIA  COMP-TECH. 

1100:02  TECH-REC-ID. 

1110:  03  TECH-ID. 

1120:: 04  TECH-PID  PIC  X(6). 

1130::  04  TECH-SID  PIC  X(4). 

1140: :04  TECH-FID  PIC  X(5). 

1150: :04  TECH-MID  PIC  X(9). 

1160:  03  TECH-SUM-ID. 

1170:: 04  TECH-SUM  PIC  X. 

1180: :04  TECH-VID  PIC  X(7). 

1190: :04  TYPE-020  PIC  9(3). 

1200: :04  NUM-020  PIC  9(3). 

1210:02  PHASE-T  PIC  XX. 

1220:02  RBP-LEVEL-T  PIC  XX. 

1221:02  CALEN-PER-T. 

1222:  03  BEGIN-DATE-T. 

1223: :04  MO-BEG-T  PIC  99. 

1224: :04  DA-BEG-T  PIC  99. 

1225: :04  YR-BEG-T  PIC  99. 

1226:  03  END-DATE-T. 

1227:: 04  MO-END-T  PIC  99. 

1228:: 04  DA-END-T  PIC  99. 

1229: :04  YR-END-T  PIC  99. 

1230:02  TECH-ID  PIC  X(4). 

1240:02  TECH-PER  PIC  99. 

1250:98  COMP-TECH  DETAIL; 

1260:  ASCENDING  KEY  IS  TKGIWRC-IO. 

1270:01  INSTRUCTIONS ;TYPE  IS  ’'030"  IN  TYPE-030; 

1280:  RETRIEVAL  VIA  COMP-INST. 

1290:02  INST-REC-ID. 

1300:  03  INST-ID. 

1310:: 04  INST-PID  PIC  X(6). 
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1320: :04  INST-SID  PIC  X(4). 

1330:: 04  INST-FID  PIC  X(5). 

1340: :04  INST-MID  PIC  X(9). 

1350:  03  INST-SUM-ID. 

1360:: 04  INST-SUM  PIC  X. 

1370: :04  INST-VID  PIC  X(7). 

1380:: 04  TYPE-030  PIC  9(3). 

1390:: 04  NUM-030  PIC  9(3). 

1400:02  PHASE-I  PIC  XX. 

1410:02  REP-LEVEL-I  PIC  XX- 
1411:02  CALEN-PER-I . 

1412:  03  BEGIN-DATE-I. 

1413: :04  MO-BEG-I  PIC  99. 

1414: : 04  DA-8EC-I  PIC  99. 

1415: : 04  YR-BEG-I  PIC  99. 

1416:  03  END-DATE-I . 

1417: :04  MO-END-I  PIC  99 
1418: :04  DA-END-I  PIC  99. 

141 9:: 04  YR-END-I  PIC  99. 

1420:02  IMST-TYPE  PIC  X(4). 

1430:02  NUM-INST-S  PIC  9(7). 

1440:02  MOM-INST-O  PIC  9(7). 

1450:02  INST-PER  PIC  99. 

1451:02  COMPLEXITY-S. 

1452:  03  CPLXS-TYPE  PIC  99. 

1453:  03  CPLXS-MEAS  PIC  X. 

1454:02  COMPLEXITY-C. 

1455:  03  CPLXC-TYPE  PIC  99  OCCURS  5 TIMES. 

1456:  03  CPLXC-MEAS  PIC  9(5)  OCCURS  5 TIMES. 
1457:02  MODE-COMSTR  PIC  99. 

1460:98  COMP-INST  DETAIL; 

1470:  ASCENDING  KEY  IS  INST-REC-ID. 

1480:01  CHARACTERISTICS ;TYPE  IS  "040"  IN  TYPE-040; 
1490:  RETRIEVAL  VIA  COMP-CHAR. 

1500:02  CHAR-REC-ID. 

1510:  03  CHAR-ID. 

1520:: 04  CHAR-PID  PIC  X(6). 

1530:: 04  CHAR-SID  PIC  X(4). 

1540:: 04  CHAR-FID  PIC  X(5). 

1550: :04  CHAR-MIO  PIC  X(9). 

1560:  03  CHAR-SUM-ID. 

1570:: 04  CHAR-SUM  PIC  X. 

1580: :04  CHAR-VID  PIC  X(7). 

1590: :04  TYPE-040  PIC  9(3). 

1600: :04  NUM-040  PIC  9(3). 

1610:98  COMP-CHAR  DETAIL; 

1620:  ASCENDING  KEY  IS  CHAR-RBC-ll). 
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1630:01  TESTS ;TYPE  IS  "070"  IN  TYPE-070; 
1640:  RETRIEVAL  VIA  COMP-TEST. 

1650:02  TEST-REC-ID. 

1660:  03  TEST-IO. 

1670: :04  TEST-PID  PIC  X<6). 

1680: :04  TEST-SID  PIC  X(4). 

1690:: 04  TEST-FID  PIC  X(5). 

1700: :04  TEST-MID  PIC  X(9). 

1710:  03  TEST— SUM— ID* 

1720:: 04  TEST-SUM  PIC  X. 

1730: :04  TEST-VID  PIC  X(7). 

1740:: 04  TYPE-070  PIC  9(3). 

1750: :04  NUM-070  PIC  9(3). 

1760:98  COMP-TEST  DETAIL; 

1770:  ASCENDING  KEY  IS  TEST-R  EC-Ill. 

1780:01  RESOURSES ;TYPE  IS  "080"  IN  TYPE-080; 
1790:  RETRIEVAL  VIA  COMP-RES. 

1800: 02  RES-REC-ID. 

1810:  03  RES-ID. 

1820:: 04  RES-P1D  PIC  X(6). 

1830: :04  RES-SID  PIC  X(4). 

1840: :04  RES-FID  PIC  X(5). 

1850:: 04  RES-MID  PIC  X(9). 

1860:  03  RES -SUM-ID. 

1870:: 04  RES-SUM  PIC  X. 

1880:: 04  RES-VID  PIC  X(7). 

1890: :04  TYPE-080  PIC  9(3). 

1900:  :04  NIJM-080  PIC  9(3). 

1910:98  COMP-RES  DETAIL; 

1920:  ASCENDING  KEY  IS  RES-REC-ID. 

1930:01  DOCUMENTS ;TYPE  IS  "090"  IN  TYPE-090; 
1940:  RETRIEVAL  VIA  COMP-DOC. 

1950:02  DOC-REC-ID. 

1960:  03  DOC-ID. 

1970:: 04  DOC-PID  PIC  X(6). 

1930:: 04  DOC-SID  PIC  X(4). 

1990:: 04  DOC-FID  PIC  X(5). 

2000:: 04  DOC-MID  PIC  X(9). 

2010:  03  DOC-SUM-ID. 

2020: :04  DOC-SUM  PIC  X. 

2030: :04  DOC-VID  PIC  X(7). 

2040:: 04  TYPE-090  PIC  9(3). 

2050:: 04  MIHM)90  PIC  9(3). 

2060:98  COMP-DOC  DETAIL; 

2070:  ASCENDING  KEY  IS  DOC-REC-ID. 
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RADC  PRODUCTIVITY  DATABASE 


The  RADC  Productivity  Database  was  defined  and  queried  using 
MDQS.*  This  database  contains  summary  information  from  over  400 
projects  and  includes  project  and  company  name,  the  programming 
language  used  and  the  percent  of  utilization,  the  number  of  pages 
of  documentation  and  the  number  of  lines  of  source  code  delivered, 
the  total  number  of  man  months  and  calendar  months,  the  number  of 
software  problem  reports,  an  SPR  and  productivity  rate,  and  the 
type  of  technology  used  (i.e.,  structured  code,  top-down  program- 
ming, etc.).  Figure  C-l  contains  a list  of  the  data  items,  the 
MDQS  name,  and  the  number  of  characters  required  for  each  value. 

The  Directory,  Data  and  Application  Definition  listings  for 
this  database  are  contained  in  Figure  C-2. 

Figure  C-3  contains  a sample  query  illustrating  the  use  of 
this  database.  Records  are  retrieved  and  printed  where  the 
number  of  delivered  lines  of  source  code  (DSLOC)  and  the  error 
rate  (SPR-RATE)  are  present.  A count  of  the  total  number  of 
records  that  contain  this  information  and  the  sum  of  the  total 
number  of  delivered  lines  of  source  code  are  printed. 


*Richard  Nelson,  Software  Data  Collection  and  Analysis,  Rome,  NY: 
Rome  Air  Development  Center,  September  1978. 
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REC-A 

Seq.  ID 

ID-A 

4 

Record  Type 

TYPE-A 

1 

Reference  Document 

REF 

3 

Project  Name 

PROG-NAME 

28 

Company  Name 

COMPANY 

11 

Prog.  Lang.  1 

LANG-1 

11 

" Z utilization 

PER-CENT-1 

3 

1 

A-B 

Chain 

REC-B 

Seq.  ID 

I D-B 

4 

Record  Type 

TYPE-B 

1 

Prog.  Lang.  2 

LANG-2 

12 

" " Z utilization 

PER-CENT-2 

3 

Prog.  Lang.  3 

LANG -3 

12 

" Z utilization 

PER-CENT-3 

3 

Program  Design  Lang. 

PDL 

6 

Design  Lang.  Rate 

PDL-RATE 

5 

Documentation 

DOC 

6 

Documentation  Rate 

DOC-RATE 

6 

i 

B-C 

Chain 

REC-C 

Seq.  ID 

ID-C 

4 

Record  Type 

TYPE-C 

1 

Delivered  Source  Lines 

DSLOC 

7 

Project  Effort  (man  months) 

TMM 

5 

" (calendar  months) 

TM 

3 

Productivity  Rate 

PROD 

S 

Structured  Code  (Z) 

SC 

3 

Top-Down  Programming  (Z) 

TOP 

3 

Chief  Programmer  (Z) 

CPT 

3 

Librarian  or  PSL  (Z) 

LIB 

3 

Code  Reviews  (Z) 

CR 

3 

Number  of  Problem  Reports 

SPR 

5 

Error  Rate  (per  100) 

SPR-RATE 

6 

Average  t People 

PEO 

3 

Derived  Data 

Productivity  - PROD-  DSLOC/TMM 

Average  People  - PEO  - TMM/TM 

Error  Rate  -SPR-RATE-  (SPR ' s/DSLOC)  100 

Documentation  Rate  -OOC-RATE-  DOC/DSLOC 

Design  Lang.  - Rate  -PDL/RATE-  PDL/DSLOC 
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LIST  DDSDN 


0050  :MD  DBRDN  ;FILE  IS.  SEQUENTIAL. 

0060  : 01  REC-A;TYPE  IS  "A"  IN  TYPE-A; 

0070:  RETRIEVAL  VIA  SCAN. 

0080:  02  FILLER  PIC  X(8). 

0090:  02  ID— A PIC  X(4). 

0100:02  TYPE-A  PIC  X. 

0110:02  REF  PIC  XXX. 

0120:02  FILLER  PIC  X. 

0130:02  PROC-NAME  PIC  X(28). 

0140:02  FILLER  PIC  X. 

0150:02  COMPANY  PIC  X(ll). 

0160:02  FILLER  PIC  X. 

0170:02  LANG-l  PIC  X(U). 

0180:02  PILLSU  PIC  X. 

0190:02  PER-CENT-1  PIC  XXX. 

0200:02  FILLER  PIC  X(U). 

0202:  98  REC-AREC-B  MASTER ;ORDER  IS  SORTED. 
0210:98  SYSTEM  DETAIL;  SC  AN  ON  TYPE-A. 
0220:01  REC-B ;TYPE  IS  "B”  IN  TYPE-B; 

0230 : RETRIEVAL  VIA  REC-AREC-B. 

0240:02  FILLER  PIC  X(8). 

0250:02  ID-B  PIC  X(4). 

0260:02  TYPE-R  PIC  X. 

0280:02  LANG-2  PIC  X(12). 

0290:02  FILLER  PIC  X. 

0300:02  PER -CENT -2  PIC  XXX. 

0310:02  FILLER  PIC  X. 

0320:02  LANG-3  PIC  X(12). 

0330:02  FILLER  PIC  X. 

0340:02  PER-CENT-3  PIC  XXX. 

0350:02  FILLER  PIC  X. 

0360:02  PDL  PIC  X(6). 

0370:02  FILLER  PIC  X. 

0380:02  PDL-RATE  PIC  X(5). 

0390:02  FILLER  PIC  X. 

0400:02  DOC  PIC  X(6). 

0410:02  FILLER  PIC  X. 

0420:02  DOC-RATE  PIC  X(6). 

0430:02  FILLER  PIC  X(ll). 

0440:  98  REC-BREC-C  MASTER; ORDER  IS  SORTED. 
0441:98  REC-AREC-B  DETAIL. 

0450:01  REC-C ;TYPE  IS  ”C”  IN  TYPE-C; 

0460: RETRIEVAL  VIA  REC-BREC-C. 

0470:02  FILLER  PIC  X(8). 

0480:02  ID-C  PIC  X(4). 

0490:02  TYPE-C  PIC  X. 

0500:02  DSLOC  PIC  X(7). 

0510:02  FILLER  PIC  X. 

0520:02  TMM  PIC  X(5). 

0530:02  FILLER  PIC  X. 

0540:02  TM  PIC  XXX. 

0550:02  FILLER  PIC  X. 

0560:02  PROD  PIC  X(5). 

0570:02  FILLER  PIC  X. 

0580:02  SC  PIC  XXX. 

0590:02  FILLER  PIC  X. 

0600:02  TUP  PIC  XXX. 

0610:02  FILLER  PIC  X. 

0620:02  CPT  PIC  XXX. 

1M  02  FILL  « PIC  X. 

>6*0  02  Ltl  PIC  X(3) . 


0650:02  FILLER  PIC  X. 

0660:02  CR  PIC  XXX. 

0670:02  FILLER  PIC  X. 

0680:02  SPR  PIC  X(5). 

0690:02  FILLER  PIC  X. 

0700:02  SPR-RATE  PIC  X(6). 

0710:02  FILLER  PIC  X. 

0720:02  PEO  PIC  XXX. 

0730:02  FILLER  PIC  X(ll). 

0740:98  REC-CREC-0  MASTER ;ORDER  IS  SORTED. 

0741:98  REC-BREC-C  DETAIL. 

0750:01  REC-D;TYPE  IS  "D”  IN  TYPE-D;RETRIEVAL  VIA  REC-CREC-i'. 
0760:02  FILLER  PIC  X(12). 

0770:02  TYPF.-D  PIC  X. 

0780:02  FILLER  PIC  X(71). 

0790:98  REC-CREC-D  DETAIL. 


LIST  ADSDN 

0250  DATA-BASE  IS  DBRDN  IN  BFCBMIS  l /DIODN 
0260  ENTRY  X IS  RECORD  REC-A  AND  REC-B  AND  REC-C 
0270ITQ1S  ARE: 

0280RECORD  REC-A  ALL  ITEMS 
0281  PER-CENT-1  INPUT-EDITED 
0290RECORD  REC-B  ALL  ITEMS 

0291  PF.K-CBNT-2  INPUT-EDITED 

0292  PER-CENT-3  INPUT-EDITED 

0293  PDL  INPUT-EDITED 

0294  PDL-RATE  INPUT-EDITED 

0295  DOC  INPUT-EDITED 

0296  DOC-RATE  INPUT-EDITED 
0300RECORD  REC-C  ALL  ITEMS 

0310  DSLOC  INPUT-EDITED 

0311  TMM  INPUT-EDITED 

0312  TM  INPUT-EDITED 

0313  PROD  INPUT-EDITED 

0314  SC  INPUT-EDITED 

0315  TDP  INPUT-EDITED 

0316  CPT  INPUT-EDITED 

0317  LIB  INPUT-EDITED 

0318  CR  INPUT-EDITED 

0319  SPR  INPUT-EDITED 

0320  SPR-RATE  INPUT-EDITED 

0321  PEO  INPUT-EDITED 


LIST  DISDN 

0010  DATA-BASE-REFERENCE  IS  DBRDN 
0020  SEqUENTIAL-DATA-BASE  IS  BFCBMIS  l /DBNDN 
0030  DEFINITION -SOURCE-PILE  IS  BFCBMIS 1 /DDSDN 
0040  DEFINITION-OBJECT— PILE  IS  BFCBMIS 1 /DDODN 


Figure  C-2:  MDQS  Definitions 
Productivity  Database 


0070 

INVOKE  ADODN 

0075 

DEFINE  SDSL  WITH  PIC  "9(1 4)» 

0080 

RETRIEVE 

X FROM 

1 DBRDN 

0090 

WHERE  DSL'IC  GE 

0 

01 00 

AND  SPR-RATE  GE 

0 

0110 

SORT  X ON 

DSLOC 

0120 

PRINT  ON 

FILE 

TESTDN  FOR  TTY 

0130 

DSLOC, SPR-RATE. 

SPR. ID-A. LANG- 

1 . LANG-2. LANG- 

■3 

0140 

LET  SDSCOUNT  * 

COIINT  DSLOC 

0150 

LEI  SDSL 

* SUM 

DSLOC 

0160 

WRAP-UP 

0170 

PRINT  ON 

FILE  TESTDN  FOR  TTY 

SDSCoUNT. SDSL 

0J80 

END 

DSLOC 

SPR-RA1E  SPR 

ID-A 

LANG- 1 

LANG-2 

LANG-3 

1 15346 

1.739 

2006 

85 

JOVIAL  J4 

X 

X 

120000 

1.697 

2036 

140 

ASSY 

JOVIAL  J3B 

X 

136350 

1 .960 

2673 

81 

CENTRAN 

X 

X 

136689 

1 .584 

2165 

169 

JOVIAL  J3 

ASSY 

X 

250000 

.414 

1036 

184 

CMS— 2 

X 

X 

300000 

1 .083 

3250 

175 

FORTRAN  IV 

ASSY 

X 

14500 

.593 

86 

88 

ASSY 

X 

X 

17500 

.251 

44 

93 

COBOL 

X 

X 

18246 

.016 

3 

89 

COBOL 

X 

X 

19045 

1 .691 

322 

206 

COBOL 

X 

X 

22075 

2.818 

622 

82 

CENTRAN 

X 

X 

22816 

1.043 

238 

S3 

CENTRAN 

X 

X 

25900 

.050 

13 

94 

COBOL 

X 

X 

27055 

1.918 

519 

159 

ASSY 

X 

X 

31500 
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Figure  C-3:  Query  Example  - 
Productivity  Database 
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APPENDIX  D 
DATASET  LOADING 


The  purpose  of  this  appendix  is  to  assist  the  user  in  load- 

mg  the  datasets  into  permfile  as  is  necessary  for  retrieval  by 

MDQS.  Currently  all  the  datasets  used  in  this  project  are  avail- 
able on  magnetic  tape  in  a format  easily  readable  by  GCOS. 


I j 


This  appendix  contains  the  minimum  sizes  of  permfiles  neces- 
sary  to  contain  the  data,  the  tape  characteristics,  a method  for 
loading  the  permfiles,  and  a method  for  concatenating  datasets. 


8 . 1 Creating  the  Permfiles 


Before  loading  any  data,  the  permfile  into  which  the  data  is 
to  be  stored  must  be  created  using  the  GCOS  Access  command.  All 
files  are  sequential. 


The  following  are  the  minimum  sizes  in  little  links  (11)  of 
permfile  necessary  for  each  dataset. 


PROJECT 

LITTLE  LINKS 

WORDS 

1 

301 

96,320 

2 

120 

38,400 

3 

150 

48,000 

4 

514 

164,220 

5 file  1 

320 

102,400 

5 file  2 

160 

51,200 

6 

120 

38,100 

1 


8. 2 Concatenating  Dataset 


The  Project  1 data  is  in  two  separate  tape  files.  For 
easier  data  manipulation  the  files  were  appended.  The  following 
FORTRAN  program  was  used  to  accomplish  this. 


A 


D-l 


J 


“LIST 

10“#RUNH=(BCD)“OP30"30";DBNTRWS"27";TRW-OP"28" 
20  DATA  ICOUNT, ICNT27, I CNT2 8 / 0 , 0 , 0 / 

30  DIMENSION  IBUF(14) 

40  20  READC27, END-40)IBUF 

50  WRITE(30) IBUF 

60  ICOUNT  - I COUNT  + 1 

70  1CNT27  = ICNT27+1 

80  GO  TO  20 

90  40  READC28, END=50)IBUF 

100  WR I TEC  30 ) I BUF 

110  ICOUNT  = I COUNT  + 1 

120  ICNT28  = ICNT28+1 

130  TO  TO  40 

230  50  WRITE(60,  100)ICNT27# I CNT28 , I COUNT 

240  100  FORMAT ( 1 X, 2 I 6) 

250  STOP 

260  END 


ready 

8. 3 Magnetic  Tape  Characteristics 

The  tape  characteristics  for  each  project  are  as  follows 


PROJECT  TAPE  # 

TRACK 

BPI 

FILE  SPECIAL  CHARACTERISTICS 

1 

46608 

9 

800 

1,3 

2 

44624 

7 

800 

1 

3 

46608 

9 

800 

2 * 

4 

44284 

9 

800 

1 

5 

44314 

9 

800 

1 

6 

44317 

9 

800 

1 

“$ : FFI LE : LUD, NS TP, NOS  RLS , MODBCD, MLTF IL,FIXLI NG 14, BUFS I Z / 1 

8 . 4 Magnetic  Tape  Data  Loading 

The  standard  GCOS  utility  can  be  used  to  read  each  tape  into 
permfile.  For  utility  specifics  see  Honeywell  Manual  DD12.  An 
example  for  Project  2 follows. 
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LIST 


10  ##N 

20$ : I DENT : BFCBMIS 1, C CURTIS,  555008570052 
30$:UTILITY:NDUMP 

40$ :TAPE9: 27, A3D, ,44624, , INPUT, , DEN8 
55$:PRMFL:28,R/W,S,BFCBMIS1/DBNB1S1 
60$ :FUTIL: 27, 28, RWD/27/, COPY/IF/ 

140$  rENDJOB 

ready 


The 

and 


user  woiild  alter  the  above  CARDIN  job  to  reflect  the  GCOS  ID 
permrile  name  as  well  as  the  tape  specifics  for  each  project. 
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MISSION 

of 

Rome  Air  Development  Center 

RA VC  plant  and  execute*  research,  development,  te*t  and 
* elected  acquisition  programs  In  support  oi  Command,  Control 
Communication*  and  Intelligence  (C3I ) activities . Technical 
and  englneeAlng  support  within  aA.ec*  oi  technical  competence 
l*  provided  to  ESD  Program  Oiiice*  IPO*)  and  other  ESP 
element*.  The  principal  technical  mission  atiea*  are 
communication* , electromagnetic  guidance  and  control,  sur- 
veillance oi  ground  and  aerospace  objects,  Intelligence  data 
collection  and  handling,  Iniormatlon  system  technology, 
Ionospheric  propagation,  solid  state  sciences,  microwave 
physics  and  electronic  reliability,  maintainability  and 
compatibility. 


